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PREFACE 


This  document  provides  information  necessary  to 
execute,    and    debuq    a   FORTRAN   IV   proqran 
RSX-llM-PLUS  and  IAS  operating  systems, 
operational   procedures.    Chapter   Two 
Object  Time  System  (GTS).   This  system  is   a   c 
selectively    linked    to    the   user's   proqram 
arithmetic,  input/output,  and  system-dependent  servio 
also   detects   and   reports 
describes  system-dependent 

Reference   Manual. 


FORTRAN   Language 


improving  the  efficiency  of  FORTRAN  IV 
provide  reference  information  about 
system  subroutines,  error  diagnostics, 
with    other   PDP-11   FORTRAN   process 


compile,   task-huild, 

under   the   HSX-llM, 

Chapter   One   describes   the 

Chapter   Two  provides  information  about  the 

.■rollection      of       routines 

to      perform      certain 

e    operat  ions .       1 1 

conditions.   Chapter  Three 

included   in   the   pnp-1 1 

Chapter  Four  contains  hints  for 

programming.    The   appendices 

internal  data  representations, 

compatibility   of   FORTRAN   IV 

man  i  pulat  ion5-, , 


run-time  error 
information   not 


bit-string 
reducing  RSX-llM  task  size,  and  completing   the   Software   performance 
Reports. 


INTENDED  AUDIENCE 

This  manual  is  intended  for  your  ^e  after  you  have  acquired  son*» 
knowledge  of  the  FORTRAN  language,  as  implemented  on  the  PPP-ll.  The 
associated  document  for  this  purpose  is  the  POP- II  FORTRAN  Lanqua<2e 
Reference   Manual.    You   should   also   be   famlHar   wi  th   the   Tora! 


operating  system  and  its  documentation. 


NOTE 

Subroutines  are  provided  i 
library  to  enable  real 
control,  process  I/O, 
RSX-1 1M-PLU'=;,  or  IAS  sys 
to  be  performed  by  means 
These  routines  and  thei 
calls  are  fully  desctib 
system     in    the    Rr?.'."! 

Ref eren ce Manual ,    t  h  ' 

Drivers   Reference   Ma:  .al 


n  the  system 
-time  process 
and  RSX-1 IM, 
ten  d  i  rect  i ves 
of  FORTRAN. 
r  ISA  standard 
ed   for    each 

M Execi-.t  ive 

>  "X-llM"""   I/O 
a'd  the  IAS 


Executive  Reference  Manual.  Volume  ?. 


Vll 


DOCUMENTATION  CONVENTIONS 

FORTRAN  ] 


operates  on  the  RSX-llM,  RSX-1 IM-PLUS ,   and   IAS   operatinq 


systems.   For  ease  of  discussion,  che  term  RSX-11  is  used  as 
reference  for  all  three  systems 


a  generic 


All  RSX-11  system  program  command  lines  are  terminated  by  a  RETURN. 
Since  this  is  a  nonprinting  character,  at  certain  places  in  the  text 
the  notation  <CR>  is  used  to  represent  the  'RETURN  key. 

Some  special  keyboard  characters  require  that  the  CTRL  (control)  key 
be  pressed  simultaneously  with  a  second  character.  These  characters 
are  denoted  by  "  (up-arrow),  for  example,  ~Z  (CTRL  7.)  . 

In  all  examples,  text  that  is  printed  by  the  system  program  is 
underlined;   text  typed  by  the  user  is  not. 


El  1 i  psis  ma  rks  ( 


indicate  that  one  or  more  words  were  omitted  from 


a  passage  without  altering  the  meaning  of  the  pass 


age 


Prompting   conventions   for   RSX-llM,   RSX-llM-PLUS   and   IAS    differ 


si igh tly , 


Thus,  the  following  sequences  initiate  FOR 


RSX-llM 


IAS  using  MCR 


IAS  using  DCL 


>FOR 


PDS>FORTRAN 


MCR>FOR 


For  documentation  simplicity,  the  illustrations  in   this   manual   show 
the  IAS  MCR>  prompt  without  the  "C. 

The  terms  "Mapped"  and  "Unmapped"  refer  only  to  RSX-llM. 


viii 


CHAPTRR  1   : 
OPERATING  PROCEDURES 


1.1   USING  THE  FORTRAN  IV  SYSTEM 

The  FORTRAN  IV  system  comprises  (a)  the  compiler  and  (h)  the  Object 
Time  System  (OTS) .  The  compiler  translates  the  symbolic  (source) 
program  into  a  relocatable  binary  (object)  module.  The  OTS  is  a  set 
of  object  modules  used  at  execution  time  to  control  and  support  a 
FORTRAN  program.   Chapter  ?  covers  the  OTS  in  detail. 

You  must  take  the  following  three  steps  to  transform  a  FORTRAN  source 
program  into  an  executing  task: 

1.  Compi lation 

2.  Task  Build  (or  Linking) 

3.  Initiation  of  Execution 

To  compile,  you  invoke  the  FORTRAN  IV  compiler  and  specify  the  source 
files  to  be  processed.  Next,  you  use  the  Task  Builder  to  construct  a 
task  image.  Finally,  you  start  task  execution  by  using  the 
appropriate  system  commands.  Each  step  in  this  procedure  involves 
several  required  and  optional  command  inputs  and  produces  an  output  to 
be  used  in  the  next  step.   Other  optional  outputs  are  also  possible. 

Figure  1-1  shows  these  step?.  This  chapter  treats  the  process  in 
detail  and  gives  some  simple  examples. 


r      SOURCE 

COMPILER 

_^       OBJEl* 

PROGRAM 

\ 

V       MODULf 

\ 

-••--:■•- 

LISTING 

LINK 


MfMOHV 
IMAC.t 


FXtCLJTINd 
PROGRAM 


MAP 


Figure  1-1   Preparing  a  FORTRAN  TV  Program  for  Fxecution 
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OPERATING  PROCEDURES 


1.1.1   Command  Lines 

System  programs  usually  require  a  command  line  to  specify  input  file?!, 
output  files,  and  various  options. 

•   Terminal  Input  of  Commands 

A  terminal  input  command  for   RSX-llM-PLUS   or   RSX-llM   is   a 
sequence  of  file  specifications  separated  by  an  equal  sign: 

output-files-list  =  input-file 

Each  specification  selects  a  file  for  input  or  output   by   the 
system  program. 

A  terminal  input  command  for  IAS  is  the  command  name   followed 
by  the  input  file: 


command/qualifiers 
Indirect  Command  Files 


input-f i le 


The  indirect  command  file  allows  you  to  store  commonly  used 
command  sequences  in  a  file  you  create  and  then  to  execute  the 
sequence  by  issuing  the  "at"  sign  (3)  followed  by  the  file 
spec  i  f icat  ion : 


:ommand-f  lie 


1.1.2   File  Specifications 

When  you  specify  a  file  name,  you  are  implicitly  referencing  a  file 
with  a  given  UIC  and  disk  designation.  The  system  relates  the  User 
Identification  Code  (UIC)  in  the  file  specification  to  a  User  File 
Directory  (UFD)  to  locate  the  file.  You  specify  a  UIC  in  the  format 
of  [g,m],  where  g  and  m  are  octal  numbers  that  identify  your  group  (q) 
and  your  membership  number  (m)  in  that  group.  The  associated  UFD 
contains  the  names  of  files  and  has  pointers  to  each  file.  You  may 
use  the  standard  system  format,  as  shown  below,  to  specify  both  input 
and  output  files  in  a  command. 


dev: [g,m]filename.typ?ver 


where 


dev: 


[gfm] 


The  unit  on  which  the  volume  containing  the  desired 
file  is  mounted,  for  instance,  DKD : .  The  name  consists 
of  two  ASCII  characters  followed  by  an  optional  one-  or 
two-digit  (octal)  unit  number  and  a  colon.  The  default 
value  is  SYO : . 

The  user  identification  code  (UIC)  associated  with  the 
user  file  directory  containing  the  desired  file.  This 
consists  of  a  group  number  (g)  and  a  member  number  (m)  . 
The  default  value  for  the  UIC  is  the  identification 
code  under  which  the  program  is  running*-   -  — -,.-;: ■.^,.^::-.--^-^. 


filename  =  Thie  name  of  the  file.  ^    file  name  can  be   up   to 
alphanumeric  characters  in  length. 


nine 
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OPERATING  PROCEDURES 


.typ 


;  ver 


A  file  type  (or  extension)  can  have  as  many  as  three 
alphanumeric  characters.  iviost  system  programs  default 
the  file  type  to  an  appropriate  standard  type  (such  as 
FTN).  The  typical  user  may  not  need  to  specify  an 
explicit  file  type. 

An  octal  number  used  to  differentiate  among  versions  of 
a  file.  If  the  version  number  is  not  specified,  the 
default  on  input  is  the  highest  existing  version  number 
for  the  file.  On  output,  it  is  the  highest  existing 
number  plus  one. 


1.2   USING  THE  FORTRAN  IV  COMPILER 


The 

one 
You 
with 


FORTRAN  command  invokes  the  FORTRAN  IV  compiler,  which  compiles 
FORTRAN   IV  source  file  and  produces  a  relocatable  object  module. 

may  specify  only  one  source  file  and  a  maximum  of  two  output  files 
each  FORTRAN  command.   The  system  allows  a  maximum  of  four  levels 


of  indirect  command  files   for   RSX-llM   and   RSX-UM-PLUS   and   three 
levels  for  IAS.   You  summon  FORTRAN  for  each  system  as  shown. 


RSX-llM 


IAS  using  MCR 


IAS  using  DCL 


>FOR 


MCR>FOR 


PDS>FORTRAN 


Each  command  directs  FORTRAN  to  compile  the  specified  source  file  and 
to  produce  specified  outputs.  The  compiler  responds  to  the  default 
switch  settings  and  produces  an  object  file,  if  specified,  with  OBJ  as 
the  default  file  type.  A  second  output,  when  specified,  is  the 
listing  file  with  LST  as  the  default  file  type.  Table  1-1  shows  "he 
FORTRAN  default  file  types.  Table  I-?  shows  the  FORTRAN  compiler 
options  (switches). 


Table  1-1 
FORTRAN  IV  Compiler  Default  File  Types 


File 

Default  Type 

Source 

Object 

Listing 

Source 

Command 

FTN 
OBJ 
LST 
FTN 
CMD 

Each  of  the  examples  below  directs  the  compiler  to  compile  the  source 
file  FILEl.FTN  from  the  system  device  and  to  output  the  file  LIST. r, ST 
and  OBJECT. OBJ  to  the  system  device. 


RSX-llM 


>FOR 

F0R>0BJECT,LIST=FILE1 
FOR>''Z 


IAS  using  MCR 

MCR>FOR 

FOR>OBJFrT, LIST=FILF1 
FO^*Z 


IAS  using  DCL 

PDS>FORTRAN/LIS; LIST/OBJ ;OBJECT  <CR> 
FILEVFILEl 
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1.2.1   FORTRAN  IV  Command  on  RSX-llM,  RSX-llM-PLUS ,  and  IAS  Using  MCR 

Once  you  have  invoked  the  compiler,  you  may  enter  a  terminal  input 
command : 

object, listing [/switches] -source [/swi tches] 

The  only  required  file  specifier  is  the  source  input  file.  Compiler 
switches  are  shown  in  Table  1-2. 

You  may  enter  an  indirect  command  file  in  response  to  the  FORTRAM 
prompt  by  typing  the  "at"  sign  ('ji),  followed  by  the  indirect  command 
file  specification: 

FOR>PCOMPILE.CMD 


1.2.2   FORTRAN  IV  Commands  on  IAS  Using  DCL 

The  IAS  FORTRAN  IV  command  line  can  take  either  of  the  following 
forms : 

1.  FORTRAN/qualif iers  input  file 

2.  FORTRAN  ^command  file 

Qualifiers  are  unique  to  IAS  and  modify  the  functions  of  the  FORTRAN 
command.  You  can  use  the  qualifiers  to  suit  the  requirements  of  your 
program  and  to  control  output  file  options  and  subsequent  processing. 
Most  IAS  FORTRAN  IV  commands  will  have  one  or  more  qualifiers,  each 
preceded  by  a  slash  (/). 

When  you  specify  more  than  one  IAS  qualifier,  the  slash  separates  each 
qualifier  from  the  next.  In  this  way,  you  can  enter  several 
qualifiers  on  the  same  command  line.  The  followinn  list  shows  the  IAS 
qualifiers  and  their  meanings.  Compiler  switches  (as  shown  in  Table 
1-2)  are  specified  under  the  /SWITCHES:  qualifier.  You  must  enclose 
the  switches  you  select  within  parentheses  and  separate  each  switch 
from  the  nex*-  with  a  slash  precedinn  the  individual  switch. 


Qualifier 


/FOR 


/LlST[:filespec] 


/NQLIST 


Meaning 

Invoke  the  FORTRAN  IV  compiler.  Applicable 
to  systems  that  have  both  FORTRAN  IV  and 
FORTRAN  IV-PLUS  compilers.  If  omitted,  the 
system  invokes  its  default  compiler. 

Produce  a  listing  file,  file  specification  as 
indicated.  If  the  file  type  is  omitted  from 
filespec,  the  system  assumes  it  to  be  .LST. 
A  listing  file  is  sent  to  the  line  printer  if 
/LIST  is  specified  with  no  filename.  /NOMST 
is  the  default  qualifier. 

Do  not  produce  a  listing  file. 
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Qualifier 

/OBJECT[ : f ilespec] 


/NOOBJECT 

/SWITCHES: (/swl. . ./swn; 


Meaning 

Produce  an  object  file,  file  specification  as 
indicated.  By  default,  the  compiler  produces 
an  object  file  with  the  name  of  the  source 
file  and  with  .OBJ  as  the  file  type. 

Do  not  produce  an  object  file. 

Use  specified  FORTRAN  IV  conpiler  switch 
options. 


Table  1-2 
Compiler  Options  (Switches) 
The  default  values  can  be  chanqec  at  installation  tine 


Option 


/CD: XXX 


/DE 


/ni 


/EX 


/in 


/I4 


Explanation 


Default 


Selects   type   of   object   code   to   be 
generated . 


The  valid  values  are 


EAE  (selects  code  for  RAE  hardware) 

EIS  (selects  code  for  EIS  hardware) 

FIS  (selects  code   for   EIS   and   FIS 
hardware) 

THR  (selects  threaded  code) 

Compile   lines  with  a  "D"  in  column  one 
(for  debugging  purposes).   These   lines 


are 


treated 


as 


comment   lines   by 


default, 


Enables  expanded  listings  of  compiler 
internal  diagnostic  information. 

Allow  source  line  input  comments  from 
columns  73-80.  The  default  roads  only 
the  first  72  columns. 


Print 


FORTRAN 


identification    and 


version  number  on  the  user's  terminal. 
The  default  omits  the  identification 
and  version  number. 


Default    to  two-word   integers 


1*4) 


(normally  defaults  to  one-word  integers 


(1*2)) 


computat  ion 


Only   one   word   is   ised  for 


/CD: THR 


/MODE 


/MODI 


/NOEX 


/NOin 


/N0I4 


(continued  on  next  page) 
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Table  1-7  (Cont.) 
Compiler  Options  (Switches) 
The  default  values  can  he  chanqed  at  installation  tin*' 


Opt  ion 


/LI  :n 


/LO 


/RO 


/SN 


"Cxplanat  ion 


Specifies   the   listinq   options, 
argument  n  is  encoded  as  follows: 

n  or  null  -  list  diagnostics  only 

1  or  SRC   -  list   source   program 

diagnostics  only 

2  or  .MAP   -  list    storage    map 

diagnostics  only 

4  or  COD   -  list   generated   code 
diagnostics  only 


The 


and 


and 


and 


Any  combination  of  the  above  list 
options  may  be  specified  by  adding 
together  the  numeric  argument  values  to 
compute   the  desired  list  options.   For 

example : 


7  or 


ALL 


requests  a  source   listing,   a   storage 
map,   and  a  generated  code  listing.   If 
is   omi  -cd,   the   default 
/LI: 3,   source   and  storage 
listinq  file  is   specified, 
are  reported  on  the  user's 


this  opt  ion 
option   is 
map.   I f  no 
d  iagnos t  ics 
termi  na 1 . 


Prints  on  the  user's  terminal  the  names 
of  program  units  (from  PROGRAM, 
FUNCTION,  SUBROUTINE,  and  HI.OCK  DATA 
Statements)  as  each  program  unit  is 
compiled.  Note  that  .MAIN.  refers  to 
the  main  program;  and  .OATA.  refers 
to  an  unnamed  BLOCK  DATA. 

Causes  pure  code  .ind  pure  data  program 
sections  to  take  the  RO  (read-only) 
attr  ibute. 

Include  Internal  Sequence  Numbers 
(ISN),  The  /NOSN  option  reduces 
storage  requirements  for  generated  code 
and  slightly  increases  execution  speed 
but  disables  line  number  information 
during  traceback.  The  default  is  to 
use  ISMs. 


Default 


'LI  :  3 


/LO 


/-RO 


/SN 


.continued  on  next  page) 
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Table  1-2  (Cont. ) 

Compiler  Options  (Switches) 

The  default  values  can  be  changed  at  installation  time 


Option 

Explanation 

Default 

/SP 
/VA 
/WR 

Autoniat  ically  spools  listing  file.   The 
default  is  to  spool. 

Enable    vectorinq    of    arrays.    The 
default  is  to  vector  arr^iys. 

Enable   compiler   warning   diagnostics. 
The   default   is    to    issue   warning 
diagnostics. 

/SP 
/VA 
/WR 

1.2.3   Compiler  Memory  Requirements 

The  compiler  task,  as  installed  on  the  RSX-11  systems,  requires  a 
minimum  memory  of  8K  words  that  can  be  extended  to  process  larger 
FORTRAN  programs.  The  compiler  will  issue  a  FATAt.  FRROR  if  the 
compiler  task  exceeds  the  available  storage  during  compilation.  See 
the  lAS/RSX  FORTRAN  IV  Installation  Guide  for  information  to  extend 
compiler  memory. 


1.3   USING  THE  TASK  BUILDER  TO  LINK  FORTRAN  IV  PROGRAMS 
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You  invoke  the  Task  Builder  with  the  following  commands 


IAS  using  MCR 

MCR>TKB 


RSX-llM 

>TKB 


IAS  using  DCL 

PDS>LIMK 


You  must  use  a  standard  command  string  as  described  in  Section   1.1.2, 
and   you  have  the  option  of  entering  your  commands  on  the  ;  ame  line  a^ 
the  TKB  or  LINK  command.   After  you  have  entered  all  your   input,   you 
conclude  by  typing  two  slashes  (//)  .   The  Task  Builder  theri  builds  the 
task  image.   Table  1-3  shows  the  Task  Builder  default  file  types. 
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Table  1-3 
Task  Builder  Default  File  Types 


File 

Default 

Type 

Task  Image 

TSK 

Map 

MAP 

Object  Module 

ORJ 

Library 

OLB 

Overlay 

Description 

ODL 

Command 

CMD 

Symbol  Table 

STB 

The  following  simple  RSX-llM  example   builds   a   task 
object  file  OBJECT. OBJ  created  by  the  first  example  in 

>TKB 

TKB>TASK=OBJECT 
TKB>// 


image   foi   the 
Section  1.?: 


or 


>TKB  TASK=OBJECT 


This  creates  the  task  image  file  TASK .TSK  on  the  system  device  and 
lists  the  memory  allocation  map  on  the  line  printer.  when  the  OTS 
resides  in  the  system  object  library,  the  Task  Builder  automatically 
resolves  any  references  in  OBJECT. OBJ  to  the  FORTRAN  IV  OTS  routines. 
H->wever,  if  the  FORTRAN  IV  OTS  is  in  a  separate  library,  you  must 
specify  that  library  in  the  Task  Builder  input,  as  shown  in  the 
following  RSX-llM  example: 


>TKB 

TKB>TASK=OBJECT 
TKB> [1,1] FORL IB/LB 
TKB>// 

The  same  command  line  for  IAS  using  DCL  is: 

PDS>LINK/TASK:TASK/MAP  - 
OBJECT,  [1,1] FORL IB/LIB 

Notice  that  here  you  use  the  IAS  continuation  character   (-)   to   show 
that  the  command  specifications  span  two  lines. 

Assume,  in  subsequent  examples,  that  the  FORTRAN  IV   OTS   is   part   of 
SYSLIB.OLB. 


When  you  use  a  separate  FORTRAN  IV  Library,  take  particular  care  not 
to  mix  object  modules  from  the  FORTRAN  IV-PLUS  compiler  (F4P)  or  the 
FORTRAN  compiler  (FTN)  and  their  corresponding  Object  Time  Systems  in 
a  task  you  are  building  from  FORTRAN  IV  object  modules. 


CAUTION 


Object  modules  produced 
PDP-11  FORTRAN  systems 
combined  in  a  single  task. 


by   different 
must   not   be 
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The  FORTRAN  IV  OTS  contains  qlobal  symbol  definitions  for  names  of 
routines  that  are  always  called  by  code  compiled  hy  other  PDP-11 
FORTRAN  processors.  Consequently,  one  of  the  followinq  types  of 
errors  will  result  if  you  include  an  object  module  from  another 
FORTRAN  with  FORTRAN  IV  compiled  object  modules. 


1.  The  Task  Builder  issues  the  messaqe  "MOnULF  xxx  MULTIPLY 
DEFINES  SYMBOL  yyy" ,  where  xxx  and  yyy  are  one  or  more  of  the 
followinq  pairs: 


Module 

Symbol 

SNAM 

SNAM 

SSRVX 

SAOTS 

SPOLX 

SPOLSH 

SNAM 

NAMS 

In  the  absence  of  multiple  symbol  definitions,  the 
issue    a    diaqncstic   nessaqe   durinq   execution 


offendinq  object  module  calls  any  of  the 
names . 


above 


OTS   will 

when   the 
entry   po  i  nt 


In  addition,  any  MACRO  routines  that  directly  or  indirectly   call   the 
OTS  routines  of  another  FORTRAN  could  produce  one  of  the  above  errors. 


1.3.1   Task  Builder  Switches  for  FORTRAN  IV  Programs 


Several  Task  Builder  switches  are  necessary  for  correct  linkinq  of 
FORTRAN  IV  proqrams.  Others  select  options  that  will  benefit  your 
programminq.  To  neqate  a  switch,  precede  the  switch  name  with  a  minus 
sign  (-)  or  the  letters  MO.  You  will  find  detailed  descriptions  of 
Task  Builder  switches  in  the  Task  Builder  manual  for  your  system. 


You  must  use  the  /EA  switch  on  the  RSX-llM  task-imaqe 
task  uses  the  KEll  Extended  Arithmetic  Element. 


f  i le   when   the 


You  must  use  the  /FP  switch  on  the  task-imaqe  file  when  the  task  uses 
the  FP-11  Floatinq  Point  Processor.  The  /FLOATINGPOINT  qualifier  is 
assumed  by  default  under  IAS;  /-FP  is  the  default  under  RSX-ll^  and 
RSX-UM-PLUS. 

You  can  select  an  abbreviated  form  of  the  memory  allocation  map  hy 
specifying  /SH  on  the  map  file;  IAS  defaults  to  the  /SHORT  qualifier 
for  the  map  file.  See  your  system's  Task  Builder  manual  for  a 
description  of  both  the  long  and  short  map  formats. 

You  can  specify  the  /LB  and  /MP  switches  with  an  input  file,  to 
indicate  an  object  module  library  (/LB)  or  overlay  description  file 
(/MP).  The  IAS/LIBRARY  qualifier  on  an  input  file  specifies  an  object 
module  library;  the  /OVERLAY  command  qualifier  specifies  the  overlay 
description  file. 

The  /SP  switch  causes  automatic  spoolinq  of  the  Task  Builder  map  file. 
The  default  is  automatic  printing  (spoolinq)  on  the  line  printer.  The 
following  sections  cover  these  switches  in  detail. 
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1.3.2   Task  Builder  Options  for  FORTRAN  IV  Programs 

YoJ  can  specify  several  Task  Builder  options,  as  shown  in  Table  1-4, 
in  addition  to  the  switches  described  above.  Several  of  these  have 
particular  relevance  to  your  FORTRAN  programmi nq . 


Table  1-4 
Task  Builder  Options 


Option 


ACTFIL 

ASG 

COMMON 

FMTBUF 

LIBR 

MAXBUF 
UNITS 


Meani  ng 


Declare  number  of  files  open  simul t ar^eous  1  y . 

Declare  device  assignnent  to  loqical  units. 

Declare  task's  intention  to  access   a   shareable   global 
area . 


Declare   extension   of   buffer    used    for 
object-time  formats. 


proce; 


iq 


Declare  task's  intention   to   access   a   memory-resident 
shared  region. 

Declare  an  extension  to  the  FORTRAN  record  buffer. 

Declare  the  maximum  number  of  logical  units. 


When  you  specify  options  in  RSX-llM  and  RRX-1 IM-PLUS ,  you  must  not 
specify  the  command  string  on  the  same  line  as  the  TKB  command;  and 
you  must  terminate  the  command  input  with  a  line  consisting  of  a 
single  slash,  /.  The  Task  Builder  then  will  solicit  option 
information  by  printing: 

>TKB 

TKB>TASK=OBJECT 

TKB>// 

ENTER  OPTIONS: 

TKB>// 

At  this  point,  you  enter  Task  Builder  options,  specifying  one  option 
on  each  line.  After  you  enter  each  option,  the  Task  Builder  accepts 
the  next.  Finally,  you  enter  two  slashes  to  indicate  no  more  options. 
The  Task  Builder  t'en  builds  the  task  and  produces  the  requested 
output  files.  Again,  it  types  TKB>  to  show  it  has  finished  and  is 
ready  to  accept  a  new  command  string.  To  exit  from  the  Task  Builder, 
type  "Z  (CTRL  Z) . 

Under  IAS,  you  enter  options  by  means  of  the  /OPTIONS  qualifier  on  the 
LINK  command.   PDS  acknowledges  the  command  by  prompting: 

OPTIONS? 

You  can  then  enter  any  of  the  options  described  in  the  following 
sect  ions . 
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1.3.2.1  ACTFIL  -  The  system  defaults  to  four  the  number  of  files  that 
may  be  simultaneously  open  by  a  task,  and  allocates  buffer  space  in 
the  task  image  for  this  many  files.  When  you  request  mult i buf f er inq 
(by  means  of  FDBSET) ,  the  number  of  buffers  the  FORTRAN  task  needs 
will  be  greater  than  the  number  of  files.  You  can  decrease  the  number 
of  buffers  to  conserve  memory,  or  increase  them  to  allow  more  files  to 
be  open  simultaneously  by  means  of  the  Task  Builder  option: 


ACTFIL 


n 


where  n  is  the  decimal  number  of  buffers  desired.  A  fatal  OTS  error 
at  run  time  will  result  if  you  attempt  to  open  a  file  when  space  is 
not  available. 


1.3.2.2   ASG  -  You  can  assign  logical  unit  numbers  to  physical   device 
units  with  the  following  option: 


ASG  =  devl :nl :n2 :... ,dev? :nl :m? :...,.. . 

where  each  dev  is  a  physical  device  unit  name  and  each  n  and   m   is   a 
valid  logical  unit  number.   The  default  device  assignments  appear  as: 


ASG  =  SY:  1  :2:  3:4,TI  :S,CL:'^ 


1.3.2.3   COMMON  -  You  specify  the  following  option 
program  references  a  shared  common  block: 


when   the   FORTRAN 


COMMON  =  name: access 

where  "name"  is  the  name  associated  with  the  resident  common  block  and 
"access"  is  either  RO  for  Read  Only,  or  RW  for  Read/Write  on  systems 
with  memory  management.  The  shared  common  block  can  contain  a  BF-OCK 
DATA  subprogram,  which  includes  multiple  FORTRAN  COMMON  declarations. 
This  allows  data  sharing  mong  concurrently  operating  tasks. 


1.3.2.4   FMTBUF  -  You  can  increase  the  default  size  (132  bytes)  of  the 

buffer  used  for  object-time  format  compilation  with  this  Task  Builder 
opt  ion : 

FMTBUF  =  n 

where  n  is  a  decimal  value  specifying  the  size,  in  bytes,  of  the 
object-time  format  compilation  buffer.  The  total  size  needed  for 
format  compilation  is  approximately  equal  to  the  number  of  characters 
in  the  largest  object-time  format  used  by  the  program. 


1.3.2.S   LIBR  -  You  specify  the   following 
program  references  a  shared  library: 


option   when   the   FORTRAN 


LIBR  =  name:access 


is  the  library's  name  and  "access"  is  either  HO  for  Read 
Only,  or  RW  for  Read/Write  on  system;  with  memory  management.  Section 
1.3.3  covers  libraries  in  detail. 
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1.3.2.'='  MAXBUF  -  By  default  the  maximun  record  size  the  OTS  can 
handle  for  input/output  is  132  (decimal)  bytes.  You  can  increase  this 
by  specifying  the  Task  Builder  option: 

MAXBUF  =  n 

where  n  is  the  number  of  bytes  (in  decimal).  The  default  qenerally  is 
adequate  for  formatted  input/output.  To  perform  direct  access  or 
formatted  operations  using  records  larger  than  132  bytes,  you  must 
employ  this  option  to  specify  the  size  of  the  largest  record  to  be 
handled. 


1.3.2.7  UNITS  -  Logical  units  I  through  c^ ,  inclusive,  are  available 
by  default  to  the  FORTRAN  program.  You  can  set  this  number  smaller  or 
larger  at  task-build  time  by  specifying  the  option: 


UNITS  =  n 

where  n  is  the  number  of  logical  units  desited. 

Section  3.4  covers  the  default  device  and  file  name  associated  with  a 
logical  unit  number.  You  must  give  a  UNITS  command  before  any  ASG 
commands,  if  you  want  a  number  of  units  different  from  the  default. 


1.3.3   FORTRAN  IV  Library  Usage 

A  library  is  a  collection  of  object  modules  and  is  either   relocatable 
or  shared. 


# 


1.3.3.1  Relocatable  Libraries  -  Relocatable  libraries  are  stored  as 
files  on  a  disk.  The  Task  Builder  binds  object  modules  from 
relocatable  libraries  into  the  task  image  of  each  task  that  references 
that  module.  When  you  specify  a  relocatable  library  as  an  input  file 
to  the  Task  Builder,  you  must  include  the  /LB  switch  in  RSX-ll^l, 
KSX-llM-PLUS,  and  IAS  using  MCR  or  the  /LIBRARY  file  qualifier  in  IAS 
to  indicate  a  library  file.  When  the  Task  Builder  encounters  a 
library  specification,  it  includes  in  the  task  image  those  nodules  in 
the  library  that  contain  definitions  of  any  currently  undefined  glob.il 
symbols. 


1.3.3.2  Shared  Libraries  -  Shared  libraries  are  located  in  main 
memory  and  all  .eferencing  tasks  use  the  same  single  cop/  of  each 
library.  You  gain  access  to  a  shared  library  by  using  the  LIHR 
option,  as  described  in  Section  I.3.2.S.  The  user  explicitly  creates 
shared  libraries  and  troy  must  contain  shareable  (reentrant)  code. 
For  further  information  concerning  shared  libraries,  see  the  Task 
Builder  manual  for  your  system. 


1.3.3.3  System  Libraries  -  Each  system  has  a  relocatable  library. 
The  Task  Builder  automatically  searches  the  system  relocatable 
library,  (  1 , 1 1  SYSLIB.rii.R,  for  any  undefined  global  references  that 
remain  after  processing  all  user-specified  input  files.  The  Task 
Builder  includes  in  the  task  the  definition  of  any  undefined  global 
symbol  it  finds.  If  the  FORTRAN  IV  OTS  Is  Included  in  the  system 
object  library,  the  Task  Builder  loads  it  automatically  with  FORTRAN 
programs. 
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Some  systems  also  have  a  system-shared  library,  c;ySRF;s  fcalled   FCSRRS 

in    RSX-11*^    and    RSX- 1 IM-PLUS )  ,    which    contains  commonly   used 

input/output  routiners  that  almost  all  tasks  need.   You  can   link   the 
system-shared  library  to  a  task  by  usinq  the  option: 


LI  BR 


SYSRES:RO  or  LIBR  =  FCSRES :  RO  for  RSX-llM  and  RSX- 1  1  "^-PMIS 


This  use  of  SYSUES  (FCSRES)  reduces  the  size  of  a   task,   since   their 
routines  need  not  be  duplicated  by  the  system  object  library. 


1.3.3.4   User  Libraries  -  You  can  construct  relocatable   libraries 
assembly    lanquaqe    and    t'ORTRAM    routines   by   usinq   the   RSX-il 
( RSX-1  iri-PLUS)  Librarian  utility.   You  access  these  libraries   throuqh 
the  appropriate  library  switch  for  your  system. 

For  example,  assume  tha'.  matR  I  XL  IB  .OLB  is  a  relocatable  library 
containinq  matrix  manipulation  routines,  and  PROn.OBJ  is  the  ohiect 
file  of  a  compiled  FORTRAN  program  that  calls  the  matrix  routines. 
You  could  qive  the  tollowinq  command  to  the  Task  Builder: 

(RSX-llM,  RSX- 1  l'*1-PLUS,  and  IAS  usinq  MCR) 

TKB>PROO  ,PROG/SP  ,'^ATR  I  XL  I  R/ LB 
TKB>// 


or 


(IAS  USING  DCL) 

PDS>LINK/MAP  PRO",    »^ATRIXL  IB/LIBRARY 


1.3.4   Overlays 


The  Task  Builder  provides  nr.  overlay  facility  that  is  effectively 
transparent  to  tne  FOPTHAN  programmer,  and  allows  larqe  programs  to  he 
executed  in  relatively  small  areas  of  main  memory.  You  need  only 
specify  the  overlay  structure  to  indicate  which  subprograms  are  to 
reside  in  various  parts  of  the  structure.  The  Task  Builder  r^r»naal  for 
your  system  has  a  complete  description  of  overlay  strurturas  and 
instructions  for  building  overlaid  tasks. 


I .4   TASK  EXECUTION 

When  your  task  imagt  has  been  built,  you  use  operatinq  system  commaniis 
to  start  the  execution. 

You  initiate  task  execution  with  the  RUN  command: 
2RUN  filespec 

where   fllespec   Is  the  file  specification  of  th«^  file  containing   the 

task   image.    (File   specification   is   described  in 
Sect  ion  1.1.2.) 

In  RSX-llM  and  IAS  in  MCR  modes,  you  can  terminate  a  task  prior  to  Its 
normal  termination  with  the  ABORT  command: 

>ABO  task 
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In  IAS,  you  suspend  a  task  by  typing  ~C  (CTRL  C) .   You  can  then 
the  PDS  commands  ABORT,  SHOW,  or  CONTINUE. 


issue 


You  can  suspend  the  execution  of  a  task  with  a  FORTRAN  PAUSE 
statement,  or  end  it  with  a  STOP  statement.  In  either  case,  the 
Object  Time  Jystem  prints  a  line  with  the  task  name,  the  statement 
that  caused  the  execution  halt,  and  the  contencs  of  the  display  (text 
followinq  STOP  or  PAUSE).  To  continue  execution  after  a  PAUSE,  type 
in  the  RSX-llM,  RSX-1 IM-PLUS ,  and  lAS  usinq  MCR  and  RESUME  command: 

>RES  tsk 

In  IAS,  you  use  the  DCL  command  CONTINUE  to  resume  program  execution. 
In  IAS  batch  mode,  the  PAUSE  statement  is  ignored  and  the  task  is  not 
suspended . 

When  a  task  terminates  as  a  result  of  a  CALL  EXIT  statement,  it  will 
not  produce  any  output  indicating  that  there  was  a  termination. 


1.5   EXAMPLES 

You  can  use  the  following  sequence  of  commands  to  compile,   link,   and 
execute  a  FORTRAN  job  consisting  of: 

•  the  FORTRAN  main  program  MAIN.FTN, 

•  tY       FORTRAN  subroutine  SUBRl.FTN, 

•  several  FORTRAN  subroutines  in  the  file  UTILITY. FTN 

RSX-llM  and  RSX-llM-PLUS 

>FOR  MAIN,MAIN=MAIN 

2^0*^  SUBRl  ,SUBR1=SUBR1 
>FOR  UTILITY, U'iILITY  =  UTILITv 
>TKB  JOB=MAIN, SUBRl , UTILITY 
>RUN  JOB 

IAS  using  MCR 

MCR>FOR  MAIN,MAIN=MAIN 
MCR>FOR  SUBRl, SUDR1=SUBR1 
MCR>FOR  UTILITY ,UTILITY=UTILITY 
MCR>TKB  JOB=MAIN, SUBRl , UTILITY 
MCR>RUN  JOB 


IAS  usinq  DCL 

PDS>  FORTRAN/LIST/OBJ     MAIN 
PDS>  FORTRAN/LIST/OBJ     SURRl 
PDS>  FORTRAN/LIST/OBJ     UTILITY 

PDS>  LINK/TASK: JOB  MAIN  SUBRl  UTILITY 
PDS>  RUN  JOB 
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You 

can  use  *-he  following  sequence  of   commands   for   a   more   complex 

^^          FORTRAN   job   that   'jses   the   same   FORTRAN   source  proqrams  but  adds 

^^^         several  options: 

1.  a  global  common  named  PARM 

2.  suppression  of  array  vectoring 

3.  an  increase  in  the  user  record  buffer  size 

4.  subroutines  in  the  object  module  library  MATLIB.OLB 

The 

sequence  of  commands  for  RSX-llM,  RSX-1 IM-PLUS ,  and    IAS  using   MCR 

is: 

>FOR  MAIN,MAIN=MAIN/NOVA 

>FOR  SUBR1,SUBR1=SUBR1/N0VA 

>FOR  UTILITY, UTILITY=UTILITY/MOVA 

>TKB 

TKB>J0B=MAIN,SUBR1,UTILITY,MATL IB/LB 

— 

TKB>/ 

• 

ENTER  OPTIONS: 

TKB>COMMON=PARM:RW 

TKB>MAXBUF=25fi 

TKB>// 

>RUN  JOB 

You 

can  achieve  the  same  result  by  using  indirect  command  files.    For 

example,  if  the  file  COMPILF.C«^D  contains: 

MAIN,MAIN=MAIN/NOVA 

^^^ 

SUBR1,SUBR1=SUBR1/N0VA 

# 

UTILITY,UTILITY=UTILITY/NOVA 

and 

the  file  LINK.CMD  contains: 

J0B=MAIN,SUBR1,UTILITY,MATLIB/LB 

/ 
COMMON=PARM:RW 

MAXBUF  =  25'S 

// 

^^         the 

following  indirect  command  file  accomplishes  the   same   result   as 

^B         the 

previous  example: 

>FOR  (^COMPILE 

>TKB  PL  INK 

2RUN  JOB 

The 

command  sequence  for  IAS  using  DCL  takes  the  following  form: 

PDS>  FOR/LIST/SWIT: (/NOVA)     MAIN 

PDS>  FOR/LIST/SWIT: (/NOVA)     SUBRl 

PDS>  FOR/LIST/SWIT: (/NOVA)     UTILITY 

PDS>  LINK/TASK: JOB/OPTIONS     MAIN- 

SUBRl    UTILITY     MATLIB/LIB 

OPTIONS  ?    COMMON=PARM:RW 

OPTIONS  ?    MAXBUF=25^ 

OPTIONS  ?    / 

# 

PDS>  RUN   JOB 

^^^ 
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You  can  also  use  an  indirect  command  file  to  replace  the  previous 
sequence.  For  example,  you  can  place  all  of  the  commands  entered 
above  in  a  file  COMPILE.CMD  and  use  the  following  form: 

PDS>  ^COMPILE 


l.fS   DEBUGGING  A  FORTRAN  IV  PROGRAM 

The  "debug  line"  capability  of  FORTRAN  IV  is  effective  in  debugging 
because  it  allows  a  FORTRAN  statement  to  be  conditionally  compiled. 
Here  are  some  suggestions  for  using  that  capability. 

Try  to  locate  the  statement  in  error  by  typing  out  intermediate  values 
and  results.  Place  a  "D"  in  column  one  of  each  source  lir.e  you  have 
added  for  debugging  purposes.  These  lines  will  not  be  compiled  unless 
you  specify  the  debug  option  (/DE)  in  the  compiler  command  string. 
T^e  program  can  be  recompiled  without  the  /DE  option  after  the  problem 
has  been  corrected.  All  the  debugging  statements  will  then  be  treated 
as  comments. 

Use  the  operating  system's  DDT  debugging  aid  for  inline  code.  ODT 
debugging  requires  the  generated  code  listing  for  the  program  'see 
Table  1-2,  /LI:4  listing  control  option).  The  resultinq  numbers 
printed  in  the  left  margin  of  the  listing  are  the  octal  offsets  of  the 
listed  machine  instructions  within  the  local  PSECT  $CODE. 


The  variables  and  data  items  referenced  symbolically  in  the  generated 
code  listing  are  located  in  the  PSECT  SDATA  at  the  offsets  indicated 
by  the  storage  map  section  of  the  compiler. 
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2.1   FORTRAN  IV  OBJECT-TIME  SYSTEM 

The  PDP-11  FORTRAN  IV  Object-Time  System  (GTS)  provides  the  user  with 
a  library  of  common  sequences  of  PDP-11  machine  instructions  invoked 
by  compiled  FORTRAN  programs.  The  OTS  consists  of  many  small 
functional  modules  from  which  the  compiler  selects  only  those  required 
to  implement  the  FORTRAN  program.  The  required  sequences  are 
integrated  with  the  compiler-generated  code  during  linkage  to  form  the 
executable  program.  For  example,  if  the  user  program  performs  only 
sequential  access,  formatted  I/O,  none  of  the  direct  access  I/O 
routines  is  included. 

The  FORTRAN  IV  OTS  comprises  the  following: 

1.  Mathematics  routines,  including  the  FORTRAN  IV  library 
functions  and  other  arithmetic  routines  (for  example, 
floating  point-routines) 

2.  Miscellaneous  utility  routines  (such  as  ASSIGN,  DATR,  ERRSET) 

3.  Routines  that  handle  various  types  of  FORTRAN  I/O 

4.  Error-handling  routines  that  process  arithmetic  errors,  I/O 
errors,  and  system  errors 

5.  Miscellaneous  routines  required  by  the  compiled  code 


2.2   OBJECT  CODE 

The  FORTRAN  IV  compiler  translates  programs  written  in  the  symbolic 
PDP-11  FORTRAN  language  into  "object  code"  (machine  language).  The 
resulting  object  modules,  combined  with  required  modules  from  the 
FORTRAN  IV  OTS,  form  executable  programs  of  PDP-ll  machine 
instruct  ions . 

The  compiler  produces  two  distinctly  different  types  of  object 
programs  by  generating  either  threaded  code  or  in-line  code. 


2.2.1   Threaded  Code 

Typical  FORTRAN  operations  call  common 
instruct  ions. 


sequences   of   PDP-11   machine 


Typical  FORTRAN  operations  can  common  sequences  or  fuf-ii  m<.icninf 
instructions.  At  the  end  of  any  no-loop,  for  example,  the  program 
increments  the  index  variable,  compares  it  with  the  limit  value,  and 
takes  a  conditional  branch.  Other  standard  sequences  locate  an 
element   of   a   multidimensional   array,,   initialize   an   input/output 


2-1 


FORTRAN  IV  OPERATING  ENVIRONMENT 


operation,  or  simulate  a  float inq-po int  operation  not  supported  by  the 
hardware  configuration  of  the  computer. 

The  compiler  generates  a  word  to  reference  a  library  function.  That 
word  contains  the  address  of  the  first  instruction  in  the  sequence  .^nd 
specifies  the  operations  that  the  instructions  must  perform.  Consider 
again  the  end-of-DO-loop  sequence.  The  required  information  gives  the 
location  of  the  index  variable,  the  limit  value,  and  the  address  of 
th(  beginning  of  the  loop.  At  run  time,  register  R4  threads  together 
the  various  references  to  library  instruction  sequences. 


2.2.2   In-line  Code 


When  you  select  in-line  code  (through  the  options  /CD:   FAF,   FIS,   or 
FIS),  the  compiler  produces  the  one-to-one  PDP-11  machine  instructions 
the   specific   arithmetic   hardware    in    the    system 
Symbolic   FORTRAN   library  routines  are  referenced  to 
those   functions   which   cannot   be   achieved   in   short 
machine   instructions.    A  program  compiled  through  the 
option   produces   an   object   program    that    conforms 


required   for 
conf  igurat  ion , 
perform  only 
sequences   of 
in-line   code 


specifically  to  the  type  of  hardware  selected" at  compilation  time. 

Take  care  to  select  the  code  option  suitable  to  the  available  hardware 
because  some  configurations  will  not  support  execution  of  in-line 
code.  Table  2-1  shows  valid  code  generation  options  for  specific 
hardware  configurations.  The  default  value  for  code  generation  is 
determined  when  you  install  FORTRAN  IV.  Note  that  the  threaded  corle 
option  is  supported  for  all  configurations. 


Table  2-1 
Valid  Options  vs  Configuration 


Hardware 
Conf  igurat  ion 

Hardware  Arithmetic  Options 

Valid  Code  Opt  i  on.s 
/CD: 

KEVll 

KEll-A 

KEll-B 

KEll-E 

KEU-F 

11/04,  11/05 

11/10 

11/15,  11/20 

11/03  or  LSI-11 

NO 
YES 

NO 
YES 

NO 
YES 

- 

THR 

EAF;  or  THR 

THR 

EIS,  FIS  or  THR 

11/35  or  11/40 

- 

NO 
YES 
NO 
NO 
NO 

NO 
MO 
YES 
NO 
NO 

NO 

NO 

NO 

YES 

VFS 

NO 
NO 
NO 
NO 

YES 

THR 

EAE  or  THR 

EAF  or  THR 

EIS  or  THR 

EIS,  FIS  or  THR 

11/34,  11/45, 
11/55,  11/50, 
11/70,  11/60 

EIS  is  standard  on  thesa  processors 

EIS  or  THR 
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Each   library   generates   object   code   that    can    be    symbolically 
represented  as  follows  (the  storage  map  is  included  for  reference): 


FORTRAN  IV       V02.5  «0N  12-MAY-80  U:27:21 

Gr.NCOD»GE:NCOD/-sp=GENCOD/CD:Eis/Li :; 


PAGE  001 


0001 
0002 
0003 
0004 
0005 
0006 

ooo; 


e 
e 

c 


PROGRAM    TO    tiFMONSTRATE    THE    CODE    CiENFRATEH    BY 
THE    FORTRAN    I«J    COMPILER 

DIMENSION    RARRAYdOflO) 

DATA    N/4/  .  1/?/ 

I=(3«2-5)«(N««2) 

J=(  I+100)*(N«)»2) 

A=2.0 

RARRAY<2.1  )=RARRAY(  1  .  n+A 

EMD 


FORTRAN  ly  STORAGE  MAP  FOh  PROGRAM  UNIT  .MAIN. 

LOCAL  yARIAKLFS.  .PSECT  ♦DATA.  SIZE  =  000634  \   206 .  WORDS) 


NAME    TYPE   OFFSET       NAME 
I        I«-'    000A22      J 


NAME  TYPF  OFFSET 
A  R*4  000626 
N       I«2    000620 

LOCAL  AND  COMMON  ARRAYS! 


NAME       TYPE    SECTION  OFFSET   SIZE DIMENSIONS 

RARRAY  R*4  Wpr   iDATA    000000   000620  (   200.)  (10.10) 


lYPE   OFFSfT 
I»2    0006. '4 


FORTRAN  IV 


000006 
000014 
000020 
000024 
000030 
000034 
000040 

000044 
000050 
000052 
000056 
000062 

000066 
000072 
000100 

000104 

000  no 

000  U  4 
000120 
000124 
000130 
000134 
000140 

000144 
000 ISO 


GFNERArFIi    CODt     FOR    PROGRAM    UNIT     .MAIN. 

J  STAIEMENT  #0003 


MOV 

•3.9»0TSV 

MOV 

N.  (SP) 

MOV 

•2.- (SP) 

JSR 

PC.tXII 

MOV 

(Sp  '♦. r«CL 

MOV 

rtci .Ro 

MOV 

ROtI 

INC 

1?»0TSV 

MOV 

RO.Rl 

ADD 

•144. Rt 

MIJL 

TtCL.Rl 

MOV 

Rl.  J 

INC 

(?»OTSV 

MOV 

•40400. A 

CLR 

A  +  2 

INC 

»»OTSV 

liOV 

A*2f-<SP) 

MOV 

A.-<SP) 

MOV 

RARRAY*2.-<SP) 

MOV 

RARRAY. -(aP) 

JSR 

PC.tADDF 

MOV 

(SP)^.RARRAYf4 

MOV 

(SP)+. RARRAY +6 

INC 

VtOTSV 

RTS 

PC 

51ATFMENI  #0004 


»  STATEMFNT  •0005 


»  STATFMFNT  ^0006 


I  STATEMENT  •OOO? 
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2.2.3   Selecting  Threaded  or  In-line  Co 

de 

When   the   compiler   generates   threaded   code   (through   the   /CD:THR          ^^ 

option),   the   object  proqran  produced  uses  a  synholic  library  routine          ^V 

to   perform   each   operation   required   for   proqram   execution.    The 

executable   program   consists  of  a  "threaded"  list  of  the  addresses  of 

library  routines  and  appropriate  operand  addresses.   This  type  of  code 

generation   produces   an   object  module  that  operates  independently  of 

hardware  arithmetic  configuration.   It  may  be  combined  with  any  of  the 

FORTRAN   IV   OTS   libraries   to  produce  a  valid  executable  proqram  for 

each  type  of  arithmetic  hardware  without  any  need  for  recompi la t ion . 

Consider  the  following  when  you   decide 
threaded  code. 

whether   to   use 

in-line   or 

•   When  the  program  does  not  contain  REAL*4,  RF:A[.*R, 
arithmetic  operations: 

or  cnMPLFy*^ 

In-line  code  always  executes  faster  than 

threaded . 

The  difference  in  size 
code  is  slight. 

between   i  n-li  ne 

and   threaded 

•   When  the  proqram  contains  large  amounts  of  RRA(.*m 
C0MPLEX*8  arithmetic  (scientific  computation): 

,    RKAL*M,  and           ^^ 

Threaded  code  is  much  smaller  than  inline 

code . 

Execution  speed  is  near 

ly  the  same  for  bo 

th. 

See  Table  2-:'. 

Table  ..-? 

• 

Comparison  of  Threaded  arid    In-line  Code 
for  the  Statement:  I=J*K*-REAL 

Threaded  Code 

In-  1  i  ne  ro.je 

For  flS 

For  FIS 

T 

For  FAF 

MO  I  SMS   J 

MOV   J,R1 

MOV 

J,R1 

MOV 

•$RAR,R! 1 

• 

MUISMS   K 

MUL.   K,R1 

MUL 

K,R1 

MOV 

J,  (Rn  ♦ 

MOV   Ri,-(SP) 

MOV 

R1,-(SP) 

MOV 
MOV 

K,PR1 

-(Rl  1  ,-(SP) 

CFIS 

JSR   PC,$CVTIF 

JSR 

PC,$CVTIF 

JSR 

PC,$CVTIF 

ADFSMS   REAL 

MOV   REAL*2,-(SP) 
MOV   REAL,-(SP) 
FADD  SP 

MOV 
MOV 
JSR 

REAL  +  ;,  •  (SP) 
RKAr.  ,-,SP) 
PCTmODF 

MOV 
MOV 
JSR 

RRAL+2 ,- (SP) 

RKAI.,-(SP) 

PC,$AnnF 

CIFS 

JSR   PCSCVTFI 

JSR 

PC,?rvTFI 

JSR 

pr,$CVTFI 

MOrSSM   I 

MOV   (SP)*,I 

MOV 

(SP)4,I 

MOV 

(SP)  ♦,  r 

!•  SEAE  represents  the  address  of   the 
register  (AC) . 

KEll-A   (or   -B) 

accumulator          ^^ 
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2.2.4   Code  Selection  and  Error  Detection 

When  the  compiler  produces  inline  code,  the  object  proqram  executes  at 
greater  speed.  Inline  code  achieves  this  opt imi za t if n ,  in  part,  by 
omittinq  instructions  to  detect  or  report  certain  error  conditions. 
However,  you  can  still  generate  code  for  error  checking  by  including 
the  /CD:THR  option  in  the  compiler  command  line.  Table  2-1 
demonstrates  the  diagnostic  benefits  of  the  threaded  code  option. 


Table  2-3 
Code  Selection  and  Error  Detection 


Error 


The  result  of  an 
integer  multiply 
operation  over- 
flows the  value 
representable  in 
a  1-word  integer. 

A  divide  by  zero 
occurs  during 
integer  arithmetic, 


The  value  of  the 

arithmetic  expres- 
sion of  a  computed 
GOTO  is  less  than 
1  or  greater  than 
the  number  of 
Icbels  in  the  list, 


Result 


In-1 i  ne  code 


No  diagnostic  message 
is  produced. 
Execution  continues 
and  the  result  is 
truncated  to  sixteen 
bi  ts. 

Mo  diagnostic  messaoe 
is  produced  ^nd  the 
result  of  the  opera- 
tion is  undefined. 


Mo  diagnostic  messaqe 

is  produced.  Execution 
continues  at  the  next 
executable  statement. 


Threaded  code 


A  fatal  error  occurs 
and  the  diagnostic 
message:  Error  70 
IMTEGRR  OVERFLOW 
is  produced. 


A  fatal  error  occurs 
and  the  diagnostic 
Tiessage  Error  71 
INTEGER  ZERO  DIVIDE 
is  produced. 

The  warning  diagnostic 

Error  91  computed 
GOTO  OUT  OF  RANGE  is 
produced.  Execution 
continues  at  the  next 
executable  statement. 


2.3   PROCZSSOR-DEFINED  FUNCTIONS 

The    compiler    generates    in-line 
processor-defined  functions: 


code 


Function 

lABS(I) 
IDIM(I,J) 
ISIGN(I,J) 
MOD(I ,J) 
MINO (I  ,J) 
MAXn (I  ,J) 

I  F I  X  ( A ) 
F  LOAT ( I ) 

Ri;AL{C) 
DBLE(A) 
SNGL(A) 


Definition 


for 


the 


f ol lowi  nq 


Integer  absolute  value 

Integer  positive  difference 

Integer  transfer  of  sign 

Integer  remainder 

Integer  minimum  of  integer  list 

Integer  maximum  of  integer  list 

Real  to  integer  conversion 
Integer  co  real  conversion 

Complex  to  real  conversion,  obtain  real  part 
Real  to  double  conversior. 
Double  to  real  conversion 
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A 


a  user  routine, 
program  with  an  EXTERNAL 


Since  the  code  for  a  processor-defined  function  is  generated  bv  the 
compiler,  no  global  reference  to  the  function  name  is  produced 
problem  could  arise  when  the  function  call  should  be  interpreted  as  a 
call  to  a  user-written  routine.  To  force  the  compiler  to  treat  the 
processor-defined  function  reference  as  a  reference  to 
speciry  the  routine  as  external  to  the 
statement . 

For  example,  when  compiling  the  statement: 

I  =  lABS(J) 
code  equivalent  to  the  following  "s  produced; 

MOV  J,  I 

BPL  1$ 

NEG  I 
1$:  ... 


By  includin-'  the  statement: 

EXTERNAL  lABS 
code  equivalent  to  the  following  will  be  produced: 

.GLOBL  lABS 

'MOV  #J,-(SP) 

MOV  #1,-{SP) 

MOV  SP,R5 

JSR  PCIABS 

CMP  (SP)+,(SP)+ 

MOV  RO,I 


2.4   VIRTUAL  ARRAY  OPTIONS 

The  FORTRAN  VIRTUAL  statement  declares  arrays  that  are  assigned  space 
wrnl'.^f  ^^^  program's  address  space  and  are  manipulated  through  the 
VIRTUALarray  facility  of  FORTRAN  IV.  VIRTUAL  allows  arrays  to  be 
stored  in  large  data  areas  that  are  acce^^'^ed  at  high  speed 


NOTE 

VIRTUAL  arrays   are   supported   only 
operating    systems    that   support 
Memory  Management  Directives. 


on 
the 


2.4.1   Limits  on  VIRTUAL  Elements 

VIRTUAL  arrays  are  limited  only  by  the  number  of  elements,  not  by  the 
total  storage  available.  All  unused  main  memory  in  the  task's 
partition  is  available  for  VIRTUAL  array  storage.  There  is  no  limit 
to  the  number  or  to  the  total  size  of  all  VIRTUAL  arrays  a  program  can 
access.  The  maximum  number  of  elements  in  a  VIRTUAL  array  is  3?7fi7 
Thus  the  largest  LOGICALM  VIRTUAL  array  is  I^K  words,  or  1?7<;7  bytes! 
The  largest  REAL*8  VIRTUAL  array  is  12PK  words  or  2^211'',  bytes.  This 
!?  «f  /°^^L,°^  32767  elements,  each  of  which  occupies  8  bytes.  The 
limit  is  32767  elements  because  FORTRAN  IV  requires  array  subscripts 
to  be  positive  integers. 
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2.4.1.1  VIRTUAL  and  DIMENSION  Statements  -  The  syntax  of  the  VIRTUAL 
statement  is  identical  to  that  of  the  DIMENSION  statement  and  involves 
only  substituting  the  keyword  VIRTUAL  for  the  keyword  DIMENSION. 
However,  there  is  a  signi  f  i -trant  semantic  difference  between  the  two 
because  of  the  limitations  imposed  on  the  DIMENSION  statement.  Local 
arrays  declared  by  the  DIMENSION  statement  are  limited  by  the  maximum 
memory  available  to  the  program.  Section  2.4.?  demonstrates  how  to 
convert  an  existing  program  to  use  the  VIRTUAL  feature. 


2.4.1.2  Memory  Allocation  for  VIRTUAL  Arrays  -  The  OTS  initializes 
VIRTUAL  arrays  by  using  memory  management  directives  ^ '^  allocate  a 
region  of  the  required  size  from  free  memory  in  a  system  controlled 
partition.  This  region  must  be  a  contiguous  portion  of  physical 
memory  large  enough  to  include  all  VIRTUAL  arrays  declared  in  tho 
program. 

Failure  to  obtain  sufficient  memory  results  in  a  fatal  OTS  error. 

A  window  of  4K  words  initially  maps  the  first  4K  words  of  the  VIRTUAL 
array  region.  When  a  VIRTUAL  array  element  lies  outside  the  window,  a 
Memory  Management  directive  causes  a  remap  operation  to  allow  access. 


2.4.2   Converting  a  Program  to  VIRTUAL 


First,  be  sure  to  observe  the  usage  restrictions  for  VIRTUAL  arrays 
described  in  the  PDP-11  FORTRAN  Language  Reference  Manual.  To  convert 
the  existing  program,  declare  the  arrays~T)y  using  the  VIRTUAr.  instead 
of  the  DIMENSION  statement.  The  program  does  not  require  additional 
access  coding. 

The  following  example  illustrates  general  program  conversion. 

1.  Identify  the  non-VIRTUAL  arrays  that  are  to  he  converted  to 
VIRTUAL  arrays. 

2.  Locate  the  DIMENSION  and  the  type  declaration  statements  in 
which  these  arrays  are  declared.  Replace  DIMENSION 
statements  with  equivalent  VIRTUAL  statements.  Replace 
array-declarative  type  declaration  statements  with  VIRTUAL 
statements  to  define  the  array  dimensions,  and  remove  the 
dimensioning  information  from  the  type  declaration 
statements . 


Compile  the  program.  Observe  all  compilation  errors;  these 
will  occur  where  the  syntax  restrictions  outlined  in  the 
PDP-11  FORTRAN  Language  Reference  ManuaJ  have  been  violated. 
In  some  cases,  you  may  need  to  reformulate  the  data 
structures  to  use  VIRTUAL  arrays  effectively. 


Check  the  code  to  ensure  that  VIRTUAL 
passed  correctly  to  subprograms. 


array   parameters   are 


If  the  argument  list  of  a  subprogram  call  includes  an 
unsubscr ipted  VIRTUAL  array  name,  the  argument  list  of 
the  SUBROUTINE  or  FUNCTION  statement  must  have  an 
unsubscr ipted  VICTUAL  array  name  in  its  cor  respond i nq 
dummy  argument.  I'his  establishes  access  to  the  VIRTUAL 
array  for  the  subprogram.  The  declaration  of  the  VIRTUAL 
array  in  the  subprogram  must  be  d imens iona 1 ly  compatible 
with  the  VIRTUAL  declaration  in  the  calling  program.   All 
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changes   to   the   VIRTUAL   array   that   occurred    during 

subprogram  execution  are  retained  when  control  returns  to          ^^ 

the  calling  program.                                             ^^k 

When  you  pass  entire  arrays  as  subprogram  parameters,   be 
certain   that   the  matching  arguments  are  defined  as  both 
VIRTUAL  or  both  non-VIRTUAL.   Mismatches  of   array   types 
are   not   detectable   at   either  compilation  or  execution 
time,  and  the  results  are  undefined. 

b. 

If  the  argument  list  of  a  subprogram  reference  includes  a 
reference  to  a  VIRTUAL  array  element,  the  matching  formal 
parameter  in  the  SUBROUTINE  or  FUNCTION  statement  must  be 
a   non-VIRTUAL  variable.   Value  assignments  to  the  formal 
parameter  occurring  within  the  subproqtair   do   not   alter 
the   stored   value   of   the   VIRTUAL  array  element  in  the 
calling  program.   To  alter  the  value  of  that  element,  the 
calling    program   must   include   a   S(-parate   assignment 
statement   that   references   the   VIRTUAL   array   element 
directly. 

The  following  example  demonstiates  the  process  oi    changing  non-VIRTUAL          ^B 
arrays  to  VIRTUAL  arrays.                                                     ^^ 

DIMENSION  A{1000,20) 

INTEGER*2  B(IOOO) 

DATA  8/1000*0/ 

CALL  ABC(A, 6,1000,20) 

WRITE(2,*)  (A(I,1)  ,1  =  1,1000) 

END 

SUBROUTINE  ABC(X,Y,N,M) 

DIMENSION  X(N,M)                                                                 ^^ 
INTEGER*2  Y(N)                                                                   ^^ 
DO  10,  1=1, N 
10    X(I,1)=Y(I) 
RETURN 
END 

This  program 

contains  two  arrays,  named  A  and  B. 

Array  A  is  d 
data   type. 
DIMENSION  is 

eclared  in  a  DIMENSION  statement  and   is   of   the   default 

Thus,   substituting   the  keyword  VIRTUAL  for  the  keyword           ^^ 
sufficient  for  its  conversion.                                    ^^k 

Note,  however,  that  array  B  :ind  its  dimensions  are  declared  in  a   type 
declaration  statement  (in  the  second  line  of  the  program). 

To  convert  B  into  a  VIRTUAL  array,  its  declarator  must  be  moved   to   a 
VIRTUAL   statement;    also,   the   variable   R   must  remain  in  the  type 
declaration  statement,  but  without  a  dimension  specification. 

A  and  B  are  1 
elements, 
converted  to 

both  passed  to  subroutine  ABC  as  arrays,  rather  than  array 
rhus   the   associated   subroutine   parameters  must  also  be 
VIRTUAL  arrays. 

The  following  listing   shows   the   program   after   the   conversion   is 
completed. 
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FORTRAN  ly       V02.5 
VIRTUAL* VIRTUAL/ -SP=V I RTUAL 


HON  12-MAY-80  11:22:28 


PAGE  001 


0001 
0002 
0003 
0004 
0005 
0006 
0007 


VIRTUAL  A(1000»20)  .BdOOO) 

INTEGER«2  B 

DO  5  1=1 » 1000 

B(I)=0 

CALL  ABC(A.Bf 1000.20) 

URITE<2r*)  (A(  I.  1)  .1=^1.1000) 

END 


FORTRAN  IV  STORAGE  MAP  FOK  PROGRAM  UNIT  .MAIN. 

LOCAL  VARIABLES.  .PSL(.;T  tHATA,  SIZE  ^  OOOOOA  (     .1.  UURHS) 

NAME    TYPE   OFFSET      NAME    TYPE   OFFriET 


NAME    TYPE   OFFSET 
I       1*2    000000 


VIRTUAL  ARRAYS.  TOTAL  SIZE 


00240200  (   41024.  UORHS > 


NAME      TYPE     OFFSET    SIZE DIMENSIONS 

A       R*4  Vec   00000000   00234200  (   40000.)  ■1000.20) 
£1       1*2       00234200   00003'20  (    lOOO.)  (1000) 

SUBROUTINES.  FUNCTIONS.  STATEMENT  ANIi  PROCESSOR  DEFINE M  FUNCTIONS: 

TYPE    NAME    TYPE    NAME    TYPF    NftMl     TYPE 


NAME    TYPE    NAMF 
ABC      R*4 


(continued  on  next  page) 
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FORTRAN    IV  V02.5 

VIRTUAL  »VIRTUAL/-SP=V  I RTIIAL 


hON    12    MAY    80     II  I. > 21 29 


PAGE  001 


0001 
0002 
0003 
0004 
0005 
0006 
0007 


10 


SUBROUriNE  AbC(XfY»hfN) 

VIRTUAL  Y(N).X(N»M) 

INTETGLR*?  Y 

IKD  10  I=::l,N 

X<  I»l)--Y(  1  ) 

RETURN 

END 


FORTRAN  IV  ST0RA6F  MAP  TOR  PROGRAM  UNIt  ABC 
LOCAL  VARIABLES.  .PSECT  tDATA,  SIZE  ^  000012  ( 


NAME    TYPE   OFFSET      NAME 
I       I»2    000010      M 


TYPE   OFFSET 
1*2  9    000004 


VIRTUAL  ARRAYS.  TOTAL  SIZE  =  00000000  ( 


NAME 
N 


UORLiS  ) 

TYPE   OFFSET 
1*2  P  00000& 


WORDS) 


NAME      TYPE 
X      R«4    0 

f  1*3        e 


OFFSET 
000000 
000002 


SIZE 

««««    <   «««* 
««««    (   «««« 


-  DIMENSIONS 
)  (N.M) 
)  (N) 
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2.5   PDP-11  FORTRAN  IV  CALLING  SEQUENCE  CONVENTION 

This  callinq  sequence  convent  ion  ■'■  is  compatible  with  all  PPP-ll 
processor  options.  in  addition  to  providinq  for  re-entrancy,  it  is 
fast  and  short,  and  conforms  to  system  hardware/software  interface 
requi  rements. 


2.5.1   Call  Site 

The  basic  form  of  the  call  is 
;  IN  IMSTRUCTION-ARRA 
MOV  »LIST,R5 
J5R  PC, SUB 


;  ADDRESS  OF  ARGUMENT  LI'-'T  TO 
;  REGISTER  5 
;CALL  SUBROUTINE 


IN  DATA-AREA 


LIST: 


.BYTE  N,0 

.WORD  ADRl 

•  •  • 

.WORD  ADRN 


.•NUMBER  OF  ARGUMENTS 

; FIRST  ARGUMENT  ADDRESS 

;N'TH  ARGUMRNJT  A[)nRFSS 


Note  that  the  byte  at  address  LIST+1  should  not  be  referenced  since  it 
is  undefined.   This  byte  is  reserved  for  use  as  defined  by  niGITAL. 

The  value  -1  (177777  octal)  is  stored  in  the  arqument  list  as  ♦^^he 
address  of  any  null  arqument.  This  address  causes  an  error  at 
execution  time  if  the  called  routines  are  unable  to  handle  null 
arquments.  The  most  probable  errors  are  illeqal  memory  reference  and 
word  reference  to  odd  byte  address.  Null  arquments  in  CALL  statements 
appear  as  successive  commas,  for  instance,  tall  SUB  (A,  ,Bi. 

The  followinq  is  an  example  of  arqument  transmission:  An  assembly 
lanquaqe  subroutine  is  written  to  sum  all  inteqer  arqument-s  it  finds 
in  each  parameter  list,  and  to  return  the  result  to  the  FORTRAN  rv 
program  as  the  value  of  a  final,  additional  arqument.  T^ie  FORTRAN 
CALL  statements  that  invoke  this  routine  take  the  form: 

CALL  I ADD ( numl ,num2 , . . . ,nunn , i  sum) 

where  numl  throuqh  numn  represent  a  variable  number  of  inteqer 
quantities  to  be  summed,  and  isum  represents  the  variable  or  array 
element  into  which  the  sum  is  to  be  placed. 


1.  This  convention  is  the  same  as  that  used  with  pnp-ll  FORTRAN  under 
RT-11  and  RSTS/E;  and  PDP-11  FORTRAN  IV-PLUS  under  RSX-llM, 
RSX-1 IM-PLUS,  and  IAS.  It  differs  s Iqn i f 1  cant  I y  from  the  convention 
used  with  FORTRAN  under  the  POP-ll  DOS/BATCH  operatinq  r.ystem. 
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Given  the  following  MACRO-11  subprogram; 


lADD: 


1$ 


.TITLE 

ADDER 

.GLOBL 

I  ADD 

MOV 

(R5)+,R0 

CLR 

Rl 

DECB 

RO 

ADD 

@(R^)+,R1 

DECB 

RO 

BNE 

1$ 

MOV 

Rl,fl(R5)-t- 

RTS 

PC 

GET  #  OF  ARGUMENTS 
PREPARE  WORK  IMG  REG. 
FIND  #  OF  TERMS  TO  ADD 
ADD  NEXT  TERM 
DECREMENT  COUNTER 
LOOP  IF  NOT  DONE 
RETURN  RESULT 
RETURN  CONTROL 

the  sequence  of  FORTRAN  IV  calls: 

CALL  I ADD (1,5, 7, I) 

CALL  IADD(15,3n,10,2n,5,J) 

would  cause  the  variable  I  to  be  given  the  value  13,  and  the   variable 
J  to  be  assigned  the  value  80. 


2.5.2   Return 

You  return  control  to  the  calling  program  by  restoring  (if   necessary) 
the  stack  pointer  to  its  value  on  entry  and  executing: 


RTS 


PC 


2.5.3   Register  Usage  Conventions 

Be  sure  to  save  any  values  in  registers  RO  through  R4  that  a  calling 
program  requires  after  a  return  from  a  subprogram.  You  cannot  assume 
that  the  argument  list  pointer  in  register  R5  is  valid  after  return. 


• 
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2.5.4   Function  Return  Values 


Function  subprograms  return  a  sinqle  result  in  the  hardware  reqisters. 
The  register  a^^signments  for  returning  t^o  different  variable  types 
are  listed  in  Table  2-4. 


2.6   VECTORED  ARRAYS 

Array  vectoring  decreases  the  time  necessary  to  reference  elements  of 
a  multidimensional  array  by  using  additional  memory  to  store  the 
array. 


Table  2-4 
Return  Value  Convention  for  Function  .Subprograms 


Type 

Result  in 

INTEGER*2 
LOGICAL*! 
INTEGER*4 
;.0GICAL*4 

REAL 

DOUBLE 
PRECISION 

COMPLEX 

RO 

RO  --  low-order  result 
Rl  --  high-order  result 

RO  --  high-order  result 
Rl  --  low-order  result 

RO  --  highest-order  result 

Rl  -- 

R2  -- 

R?.   --  lowest-order  result 

RO  --  high-order  real  result 

Rl  --  low-order  real  result 

R2  --  high-order  imaginary  result 

R3  --  low-order  imaginary  result 

2.6.1   Calculating  Element  Locations 

Since  multidimensional  arrays  are  stored  sequentially  in  memory, 
certain  address  calculations  determine  the  location  of  individual 
elements.  Typically,  a  mapping  function  performs  this  calculation. 
For  example,  to  locate  the  element  LIST(1,?,3)  in  an  array  dimensioned 
LIST{4,5,^),  use  the  following  function  equivalent.  This  function 
identifies  a  location  as  an  offset  from  the  base  of  the  array  storage. 

'  *  f  s  3  -  1  )  = 
*   (   2   )  =  44 

where  si  =  subscript  i 
di  =  dimension  i 


(s 

1-1) 

+ 

dl 

* 

(s2 

- 

1) 

+ 

dl 

* 

( 

0  ) 

+ 

4 

* 

( 

1 

) 

+ 

4 

* 

Since  such  a  mapping  function  requires  multiplication  operat inn  (s)  , 
and  some  PDP-11  hardware  configurations  do  not  have  the  MUL 
instruction,  the  compiler  can  reduce  execution  time  at  the  expense  of 
memory  storage  by  "vectoring"  some  arrays. 
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2.6.1.1 

declared 

arrays  a 

declared 

example, 

arrays 

subprogr 

such   ca 

program 

that   po 

FORTRAN 


dimens  ions . ) 


Declaring 

d  imens  io 
re  within 
bounds  o 
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passed   to 
am  differ 
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and  one  fo 
rtion   of 
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f  a  vec 

interr 

subpr 

from  th 

sets 
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of  V 
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gram . 
declar 
Manual 


nee  array  vectors  map  only  the 
you  must  ensure  that  references  to 
unds.    A   reference   outside   the 

causes  unpredictable  results 

must  give  particular  attention 

re   the  dimensions  declared  in 

ed  in   the   calling   program. 

are  created:   one  for  the  calling 

The  subprogram  vectors   map   only 

ed  by  the  subprogram.   (The  PDP-11 

conta  ins 


for 
to 

the 
In 


more   information 


on 


2.6.1.2  Locating  a  Specific  Element  -  A  specific  element  in  a 
vectored  array  can  be  located  without  the  need  for  multiplication  by  a 
simplified  mapping  function  that  uses  a  table  lookup  to  determine  the 
location.  For  example,  a  vectored,  two-dimens  nal  array  B(S,6) 
automatically  has  associated  with  it  a  one-d  imer.si  ona  1  vector  that 
would  contain  relative  pointers  to  each  column  of  array  B.  The 
location  of  the  element  B(m,n),  relative  to  the  beginning  of  the 
array,  could  then  be  computed  as: 

vector (n)  +  m 


using   only   addition   operations, 
vectoring  process. 


Figure   2-1   depicts   the    array 


Array  B 

(5.6) 

Associated 

B(1  1) 

pi 

Vector 

8(2  li 

0  PI 

B(3  1) 

5  P2 

B(4  n 

to  P3 

8(5.1) 

15  P4 

8(1  2i 

P2 

20  P5 

B(22i 

25  P6 

B(3.2) 

The  location  of  element  8(m.n) 

Vector(n)   •   m 

8(1.6) 

P6 

8(2  6i 

or   the  location  of  B(4.3) 

8(36) 

8(4  6i 

Vector  (3)   -4       10      4       14 

B(5.6) 

Figure  2-1  Array  Vectoring 


2.6.1.3  Memory  Required  for  Array  Vectoring  -  The  compiler  bases  the 
decision  to  vector  a  multidimensional  array  on  the  computed  ratio  of 
the  space  required  to  vector  the  array  to  the  total  storage  space  it 
requires.  The  array  is  not  vectored  if  this  ratio  is  greater  than  2S 
percent.  A  standard  mapping  function  is  used  instead.  Arrays  with 
adjustable  dimensions  are  never  vectored.  Vectored  arrays  are  noted 
as  such  in  the  storage  map  listing. 
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The  compiler  option  /NOVA  suppresses  all  array  vectorinq. 

The  amount  of  memory  required  to  vector  an  array  is  the  sum  of  all 
array  dimensions  except  the  first.  For  example,  the  array  X(5n,in,3()) 
requires  10+30=40  words  of  vector  table.  Note  that  the  array  V(5,10n) 
requires  100  words  of  vector  storaqe,  whereas  the  array  Y(100,5) 
requires  only  5  words  of  vector  storaqe.  It  is  qood  proqramminq 
practice  to  place  an  array's  largest  dimension  first  when  it  will  be 
vectored . 


2.f^.l.4  Sharing  Vector  Tables  -  Wherever  possible,  vector  tables  are 
shared  among  several  different  arrays.  The  compiler  arranges 
shareable  vectors  under  the  following  conditions: 

1.   Arrays  are  in  the  same  program  unit. 


2.  For  the  ith  dimension  vector  to  be 
dimensions  to  the  left  of  the 
equivalent  in  each  array. 


shared   by   the 
ith   dimension 


ar  rays , 
must   be 


For  example,  given  the  statement  DIMENSION  A ( 10 , 1 0 )  ,R ( 10  ,  20)  ,  A  and  B 
share  a  20  word  vector  for  the  second  dimension  that  contains  the 
values  0,  10,  20,  30,  40,  50,  f^O,  70,  80,  90,  100,  110,  120,  130,  140, 
150,  160,  170,  180,  190,  of  which  the  array  A  uses  only  the  first  ten 
elements. 


2.7   PROGRAM  SECTIONS 

Program  Sections  (PSECTs)  contain  code  and  data  and  are  identified  by 
unique  names  as  segments  of  the  object  program.  The  attributes 
associated  with  each  PSECT  direct  the  Task  Builder  to  combine  several 
separately  compiled  FORTRAN  program  units,  assembly  Ian  lage  modules, 
and  library  routines  into  an  executable  program.  i ne  following 
attributes  are  associated  with  these  sections: 


Concatenate 

(CON) 

or 

Overlay 

(OVR) 

Data 

(D) 

or 

Instruct  ion 

(I) 

Global 

(GBL) 

or 

Local 

(LCD 

Relocatable 

(RED 

or 

Absolute 

(ABS) 

Read/Wr  ite 

(RW) 

or 

Read-only 

(RO) 

2.7.1   Compiled  Code  PSECT  Usage 


The  compiler  organizes  compiled  output  into  three  program  sections, 
which  have  the  names,  attributes,  and  contents  shown  in  Table  2-5. 
When  the  Task  Builder  concatenates  named  PSECTs  with  the  CON 
attribute,  it  allocates  all  PSECTs  with  the  same  name  together  in 
sequence.  The  length  of  the  resulting  PSECT  is  the  sum  of  the 
individual  sections  so  defined. 
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Sect  ion 
Name 


$CODE 


SDATAP 


SDATA 


Table  2-5 
Compiler  Organization  of  Program  Sections 


Att r  ibutes 


RW^,  I,  LCL,  REL, 
CON 


RO,  D,  LCL,  REL, 
CON 


RW,  D,  LCL,  REL, 
CON 


Contents 


All  executable  code,  including 
threaded  and  in-line,  for  a 
program  unit. 

Pure  data  (constants,  FORMATS, 
array  vectors)  that  cannot  change 
during  program  execution. 

Impure  data,  variables,  temporary 
storage,  and  arrays  used  in  the 
FORTRAN  program. 


1.  The  RO/RW  attribute  for  sections  SCODE  and  SDATAP  is  controlled 
by  the  compiler  /RO  command  option.   See  Table  1-2. 


2.7.2   Common  Block  PSECT  Usage 

FORTRAN  COMMON  storage  is  placed  into  named  PSECTs.  The  PSFCT  name  is 
identical  to  the  COMMON  block  name  specified  in  the  FORTRAN  program. 
PSECTs  used  for  COMMON  storage  are  given  the  attributes  RW,  O,  GRL, 
REL,  OVR. 

For  example,  the  FORTRAN  statement: 

COMMON  /X/  A,B,C 

produces  the  equivalent  of  the  following  MACRO-11  code: 

.PSECT  X,  RW,  D,  GEL,  REL,  OVR 

Al     .BLKW  2 

Bt    .BLKW  2 

C»    .BLKW  2 

FORTRAN  blank  COMMON  uses  the  section  name  .$$$$.;  thus  the 
statement : 

COMMON  C,B  /X/  A 
produces  the  equivalent  of: 

.PSECT  .$$$$.,  RW,  D,  GBL,  REL,  OVR 

Cl    .BLKW  2 

Bl    .BLKW  2 

.PSECT  X,  RW,  D,  GBL,  REL,  OVR 

A:    .BLKW  2 

When  the  Task  Builder  combines  PSECTs  with  the  nvR  attribute,  it 
allocates  all  PSECTs  with  the  same  name  together  heginninq  at  the  same 
address.  The  resulting  PSECT  is  the  size  of  the  largest  individual 
section  so  combined. 
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2.7.3   OTS  Library  PSECT  Usage 

The  OTS  module  SOTV  decJares  a  number  of  sections  that  the  OTS  uses  as 
impure  working  storage. 

Section  $$AOTS  contains  a  general  work  area.  Section  ?$nEVT  contains 
storage  for  each  FORTRAN  logical  unit.  The  TKB  UNITS  option 
specification  determines  the  size  of  SSnEVT. 

Section  $$0BF1  contains  storage  for  holding  the  compiled  form  of 
object  time  formats.  The  TKB  FMTBUF  option  specification  determines 
the  size  of  SSOBFl. 

Modules  included  in  the  OTS  library  and  referenced  by  the  compiled 
program  are  segmented  into  four  program  sections,  as  shown  in  Table 
2-^. 


Table  2-*^ 
Organization  of  OTS  Library  Modules 


Sect  ion 
Name 


OTS$I 
OTS$P 
OTSSD 
OTS$S 
OTS$F 
CV$$F 
CVS:.$I 
CV$$L 


Att r  i  bates 


Contents 


RO,  I,  LCL,  RPL, 
CON 

RO,  D,  GBL,  REL, 
OVR 

RO,  D,  LCL,  RRL, 
CON 

RW,  0,  LCL,  R--L, 
COH 

RW,  I ,  GRL ,  RFL, 
CON 

RW,  T ,  GEL,  REL, 
OVR 

RW,  I ,  HBL ,  REL, 
OVR 

RW,  r ,  GBL,  REL, 
OVR 


All  pure  code  for  the  module. 


:  Pure  tables  of  addresses  of  other 
i  OTS  library  modules. 

'[    Pure   data    referenced    by   the 
j  module. 

Scratch  storage  referenced  by  the 
Hi.  d  u  1  e  . 

Code   fur   modules   SFIO,  SLISTI, 
$(,rSTO 

Code  for  module  CONVF 


Cod3  for  module  COMVI 


Cccie  for  module  COSVL 


2.8   INPUT/OUTPUT  AND  FILE  CONTROL  SERVICES 

ALL  FORTRAN  input/output  operations  use  the  standard  facilities 
provided  by  File  Control  Services  (FCS).  Consult  the  pertinent 
lAS/RSX  I/O  operations  manual  for  detailed  coverage  of  FCS. 
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2.8.1   Device  and  File  Name  Conventions 


logical  unit  numbers  correspond  one  for  one  with  the  operatinn 

The   Task  Ruilder  makes  the  default  device 


FORTRAN 

system's   logical   units 

assignments  for  each  logical  unit  allocatecJ  for  a  tisk.  The  default 
logical  unit  device  and  file  name  assignments  are  listed  in  Table  ?-l . 
You  can  change  the  default  device  assignments  prior  to  execution  by- 
using  the  F^SX-llM,  RSX-ll'*-l-PLlIS,  ana  IAS  in  MCR  REASSIGN  command  or 
the  IAS  in  PDS  ASSIGN  command.  You  can  change  the  device  and  file 
name  assignments  at  execution  time  by  using  the  ASSIGN!  system 
subroutine  (see  Section  B.2).  The  default  file  name  conventions  also 
apply  to  logical  units  not  listed  below:  for  instance,  unit  number  4*4 
has  a  default  file  name  of  F0R049.DAT. 


Table  2-7 
FORTRAN  IV  Default  Logical  Device  Assignments 


Logical  Unit 
Number 


1 

2 

3 
4 
5 


Default  Device 


System  disk,  '^Y: 
System  disk,  SY : 
System  disk,  SY : 
System  disk,  SY: 
Requestor  Keyboard,  TI: 
System  listing  unit,  CL; 


Default  File  name 


FOROOl 
FORn0  2 
FOROni 
FORn04, 
FOROO'j, 


DAT 
DAT 
DAT 
DAT 
DAT 


FOROOf^.DAT 


2.8.1.1  Maximum  Number  of  Active  Units  -  Although  you  can  use  any 
combination  of  valid  logical  unit  numbers,  the  system  imposes  a 
maximum  number  of  units  that  can  be  simultaneously  active.  This 
figu're  derives  from  the  number  of  buffers  allocated  and  the  number  of 
buffers  required  for  each  logical  unit  (usually  1).  The  number  of 
simultaneously  active  units  equals  the  number  of  buffers  allocated, 
divided  by  the  number  required  for  each  unit.  You  can  change  the 
total  by  using  the  ACTFIL  Task  Builder  option  (see  Section  1.1.?). 
Because  logical  unit  numbers  are  allocated  consecutively,  >ou  must 
allocate  units  1  through  17  in  order  to  use  units  2    and  17. 


2.8.1.2   Closing  a  Logical  Unit  -  When  a  logical  unit  is   closed,   v..^ 

system   reestablishes   the  default  filename  assignment  that  existed  at 
the  start  of  ^a<^''  .»«o^..«-i-»»    fw-.  j_<:-..i..   j. ..:__   ,  — 

undef  ined . 


task  execution.   The  default   device   assignment 


the 
I  at 
becomes 


MOTE 


A  CLOSE  operation  does  not  affect  the 
device  assignment  to  a  logical  unit. 
However,  this  convention  is  subject  to 
change  in  future  releases  and  should  not 
be  relied  upon.  Tf  you  change  the 
device  a:^.Tignment  of  a  unit  by  a  CALL 
ASSIGN  statement,  all  rAt.L  ASSIGN 
statements  referencing  that  unit  should 
specify  the  device  to  be  used. 
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2.8.2   Implied  Unit  Numbers  for  I/O  Statements  Without  Unit  Specifications 

A  formatted  READ  statement  of  the  form: 

READ  f,list 
is  equivalent  to: 

READ( 1  ,f ) list 

For  all  purposes  these  two  forms  function  identically.  Assigning 
logical  unit  number  1  to  the  terminal,  for  example,  in  both  cases 
causes  input  to  come  from  the  terminal. 

The  ACCEPT,  TYPE,  and  PRINT  statements  also  have  similar  functional 
analogies.  The  PRINT,  ACCEPT  and  TYPE  statements  implicitly  reference 
logical  units  fi,  Z    and  5  respectively.   See  Table  ?-H . 

Table  2-8 
Implied  Unit  Numbers 


Statement    Type 

Equivalent    Form 

READ 
PRINT 
ACCEPT 
TYPE 

f,    list 
f,    list 
f,    list 
f,    list 

READ 
WRITE 
READ 
WRITE 

(l,f)     list 
(^,f)    list 
(5,f)     list 
(S,f)     list 

2.8.3   FORTRAN  I/O  Operations  Supported  by  Device  Type 

Table  2-9  shows  the  RSX-11  system  devices  that  support  the  I/O 
operations  in  FORTRAN.  X  indicates  the  device  that  supports  the  I/O 
operat  ion . 

Table  2-9 
PDP-11  FORTRAN  Standard  Peripheral  Devices 


Name 

FORTRAN 
r/0    Type 

FORTRAM 
I/O   Ofjerat  ions 

Sequential 
Formatted 

Sequential 
Unformatted 

ni  rect 
Access 

RKAn 

WBITF 

FNPFn.F 

HArxsPAPF:/ 

PRWINP 

OPKN/ 

ClOHF. 

DISK 

X 

X 

X 

X 

X 

X 

X 

X 

DECtape 

X 

X 

X 

X 

X 

X 

X 

X 

Maqtape 

X 

X 

X 

y 

X 

X 

X 

Line    Printer 

X 

X 

X 

Card    Reader 

X 

X 

X 

Terminal 

X 

\ 1 

X 

X 

X 

1 

# 
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2.8.4   OTS/FCS  Record  Transactions 


Sequential   formatted   output 

Sequential   formatted 


.3C>-J>JC11  L.  1  a  J.  LUllMdULeU  ou 

variable-length   records. 


uses   the   FCS 


vai  lauie-ienytri   recoros.    sequential   format-ted   in 
GET$S  macro  to  read  variable  or  fixed-length  records. 


PUT$S   Macro   to   write 
input   uses  the  FCS 


Direct   access   i/o   uses 
fixed-length  records. 


the   macros   GET$R   and   PUTSR   to   process 


Sequential  unformatted  I/O  operations  also  use  GET$S  and  PUT$S,  hut 
add  a  segment  superstructure  over  and  above  that  provided  by  FCS.  A 
FORTRAN  unformatted  record  consists  of  one  or  more  FCS  variable-length 
records. 


2.3.4.1  FCS  Control  Information  -  The  first  two  bytes  of  each  FCS 
record  are  control  information,  as  follows.  Two  bits  of  the  segment 
control  word  are  used.  The  lowest-order  bit  specifier  the  FCS  record 
as  the  first  record  of  a  FORTRAN  unformatted  record.  The  next  bit 
specifies  that  the  FCS  record  is  the  last  segment  o-:  a  FORTRAN 
unformatted  record.  All  four  combinations  of  these  two  bits  are 
possible.  For  exarple,  in  the  case  of  a  short  unformatted  record  that 
is  contained  in  exactly  o<;e  FCS  record,  both  hits  are  set. 


WRITE  statement 


OPENSW 


CALL  FDBSET 


'OLD' 

OPENSU 

•NEW 

OPEN$W 

'APPEND' 

OPENSA 

•READONLY' 

OPENCR 

'UNKNOWN' 

OPENSU; 

if  no  such 

•MODIFY' 

OPENSM 

'I  SUP' 

OPENSW; 

FA.NSP  set 

•SHARE' 

FA.SHR  set 

file  OPEnSw 


Files  created  for  formatted  input/output   take 
control  attribute  (FD.FTN  in  field  F.RATT). 


the   FORTRAN   carriage 


2.8.5.1 
Sect  ion 
created 
direct 
will  be 


File  Storage  Allocation  -  Unless   specified 


B.ll) 


no   file 


in   FDRSFT   (see 


storage   is  allocate(1  at  the  time  a  file  is 

FCS  dynamically   allocates   file   storage   as   needed.    For 

access  files  this  means  that  the  file  storage  actually  written 

allocated.   A  fatal  error  condition  will  result  from  a   direct 


access  READ  beyond  the  allocated  storage. 
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2.8.6   Auxiliary  I/O  Operations 


A  FIND  statement  is  similar  to  a  direct  access  RFAD  operation  without 
an  I/O  list.  An  associated  variable  will  be  set  to  the  specified 
record  number. 


A  REWIND  statement  is  performed  as  an  FCS  .POINT  operation 
positioning  at  the  beginning  of  the  file  (block^^l,  hyte  =  n) 


spec  i  f y inq 


A  BACKSPACE  statement  with  the  file  positioned  at  record  n  is 
performed  as  a  rewind  followed  by  n-1  successive  reads  to  position  the 
file  at  the  previous  record.  The  GTS  maintains  the  current  record 
count.  A  backspace  operation  cannot  be  performed  if  the  file  is 
opened  for  append  because  the  record  count  is  not  available  to  the 
OTS. 


An  ENDFILE  statement  writes  an  end-file  record.   Since   FCS   does   not 
support   an   end-file  record  concept,  the  following  interim  convention 
is  used:   an  end-file  record  is  a   1-byte 
octal  code  32  (CTRL  7.)  . 


record   that   contains   the 


2.8.7   File  Sharing 

The   file   system   permits   more   than   one 
simultaneously.   Certain  considerations  must 
appreciate  the  way  in  which  file  sharing  may 
careful   attention,   when   you   use   shared 


task  to  access  files 
be  understood  in  order  to 
be  used.  You  must  give 
files,   to  the  inter-task 


coordination  required  for  reliable  performance. 


2.8.7.1  File  System  Sections  -  The  file  system  is  implemented  in  two 
distinct  sections,  called  File  Control  Services  (FCS)  and  File  Control 
Primi  tives  (FllACP)  . 

1.  FCS  executes  as  part  of  the  virtual  image  of  each  using  task; 
that  is,  it  executes  in  the  user  task  address  space.  Buffers 
and  control  blocks  are  also  maintained  in  an  impure  storage 
area  in  each  task.  Logically,  there  is  one  copy  of  FCS  for 
each  task  (although  normally  there  is  only  one  physical  copy 
of  the  code  in  a  shared  library). 

2.  FCS  defines  and  interprets  the  contents  of  a  file  in  other 
words,  the  record  structure.  (These  capabilities  are  fully 
described  in  the  pertinent  RSX-11  I/O  operations  reference 
manual).  As  part  of  each  task,  FCS  reads  and  writes  the 
logical  blocks  of  a  file  and  maintains  the  current  image  of 
the  most  recently  referenced  block. 

3.  FllACP  is  logically  a  single  task  that  services  all  tasks 
using  the  file  system.  It  performs  all  device  management 
functions  associated  with  a  device  in  terms  of  the  physical 
blocks  of  storage  provided  by  the  hardware.  Except  for 
certain  special  data  structures  used  by  itself,  FllACP  gives 
no  interpretation  to  the  contents  of  data  stored  in  a  file. 
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2.8.7.2   Ac 
two   tasks 
block  bound 
performed 
record  can 
part   by  an 
postponing 
perform   a 
may  be  out 
be  encounte 


cessing  Shared  Files  -  A  mi 

access   a   shared   file  in 
aries.   Because  the  read, 
by  the  two  virtual  FCSs  are 
occur  in  which  part  of  the 
other.   In  addition,  FCS  tr 
a  rewrite  in  order  to   use 
subsequent  read  or  write, 
of  date  for  arbitrary  time 
red  on  both  sequential  and 


xed  record  image  ca 

which  some  of  the 
modi  f y ,  and  rewr  i 
asynchronous  and  i 
data  was  written  by 
ies  to  minimize  dis 
the  in-task  buff 
Thus,  the  disk  imaq 
intervals.  This  p 
direct  access  input 


n  result  when 
records  cross 
te  sequences 
ndependent,  a 
one  task  and 
k  act  i vi  ty  by 
er  image  to 
e  of  the  file 
roblem  might 
/output . 


2.8.7.3  Closing  and  Reopening  a  File  -  A  problem  could  occur  with  the 
logical  end-of-file.  When  you  extend  a  file,  the  disk  description  of 
the  logical  end-of-file  is  not  updated  until  the  file  is  closed.  if 
one  task  opens  a  filt-  to  append  new  records,  a  second  task  that  opens 
the  file  to  read  the  newly  appended  data  will  not  be  able  to  do  so 
even  after  the  writing  task  has  closed  the  file.  The  reading  task 
access  the  new  records  only  by  closing  and  reopening  the  file. 


can 


2.9   GTS  AND  SHAREABLE  LIBRARIES 

All  OTS  modules  (with  the  exception  of  modules  $OTV,  SOPEN,  and  SOPCL) 
consist  of  pure  and  shareable  code  and  data.  The  module  $OTV  consists 
of  impure  data  areas  that  the  remainder  of  the  GTS  uses  for  temporary 
results,  logical  unit  control  tables,  buffers,  and  other  activities. 
You  can  build  all  or  part  of  the  OTS  into  a  shareable  library, 
include  it  in  an  existing  shareable  library. 


or 


You  may  find  it  advantageous  to  create  such  a  common  area  -  a 
containing  often  used  code  and  routines  shared  by  many  tasks. 


1 ibrary 

Several 
user  tasks  can   simultaneously   access   the   routines   in   a   resident 

library,  rather  than  having  individual  users  "linking  in"  the  same 
code  many  times  for  each  task.  Common  areas  can  significantly  reduce 
the  total  amount  of  memory  these  tasks  need. 


2.9.1   The  OTS  and  Position  Independent  rode 

Because  the  OTS  is  not  Position  Independent  Code  (PIC),  it  cannot  be 
included  in  a  PIC  shared  library.  This  restriction  applies  to  the 
system  shared  library,  SYSRFS  (FCSRFS  under  RSX-llM),  which  is  PIC. 


2.9.1.1  Formatted  I/O  Routines  in  Shared  Library  -  Bear  in  mind  when 
you  build  shared  libraries  that  if  you  include  any  of  the  formatted 
I/O  routines  below  in  a  shared  library,  you  must  include  all. 

Module  Name  Global  Symbol 


LCO$ 

ICOS,  OCI$,  0C0$ 

DCO$,  RCO$,  FCO$,  GCOS 


$FIO 

SFIO 

$CONVL 

LCIS, 

$CONVI 

ICIS, 

SCONVF 

RCIS, 

SLISTI 

SILR 

SLISTO 

SILW 
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2.10   TRACEBACK  FEATURE 


Traceback 
error  mes 
run-t  ime 
shows  th 
occurred . 
the  error 
the  name 
occurred . 
traced  ba 
determine 
a  deeply 


--  a  feature 

sages  --  loca 

error.   A  lis 

e   line   numb 

I f  the  prog 

handler  trac 
of  that  progr 
This  proce 
ck  to  a  speci 
s  the  exact 
nested  subrou 


included  i 
tes  the  act 
t,  immedia 
er  and  pr 
ram  unit  is 
es  back  to 
am  unit  and 
ss  continue 
fie  line  n 
location  of 
t ine .   See 


n  lAS/RSX  FORTRAN  IV  fatal  run-time 
ual  program  unit  and  line  number  of  a 
tely  following  the  error  message, 
ogram   unit   name   in  which  the  error 

a  SUBROUTINE  or  FUNCTION  subprogram, 

the  calling  program  unit  and  displays 

the   line   number   where   the   call 

s  until  the  calling  sequence  has  been 

umber   in   the   main   program.    This 

an  error  even  though  the  error  is  in 
Figure  2-2. 


0001 

A=0.0 

0002 

CALL  SUBl 

0003 

CALL  EXIT 

0004 

END 

0001 


:a) 


SUBROUTINE  SUBl (B) 


0002 

CALL  SUB 2  (B) 

0003 

RETURN 

0004 

END 

0001 

SUBROUTINE  SUB2(C) 

0002 

CALL  SUB3  (C) 

0003 

RETURN 

0004 

END 

0001 

SUBROUTINE  SUB3(D) 

0002 

E=1.0 

0003 

F  =  E/D 

0004 

RETURN 

0005 

END 

Traceback  of  Fatal  Error: 

tsknam ERROR  "?  1  FLOATING  ZERO  DIVIDE 

in    routine  "sub3   "  line  3 

from  routine  "sub2   "  line  ? 

from  routine  "subl   "  line  2 

from  routine  ".main."  line  2 


Figure  2-2   The  Traceback  Feature 


Note  in  Figure  2-2  that  the  line  number  in  the  traceback  of  routine 
'SUB2'  is  simply  a  question  mark  (?).  This  is  because  the  module  was 
compiled  with  the  /NOSN  option  in  effect  (see  Table  1-2). 
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CHAPTER  3 
FORTRAN  IV  SPECIFIC  CHARACTERISTICS 


This  chapter  applies  specifically  to  the  FORTRAN!  IV  lanquaqe  as  it 
operates  under  the  RSX-llM,  RSX- 1  1M-PLL!S ,  and  IAS  systeraK.  The 
material  presented  here  both  relaxes  the  restrictions  imposed  by  the 
PDP-11  FORTHANI  Language  Reference  Manual  and  provide?^  addicionaJ 
material  essential  to  RSX-11  users  but  not  covered  in  the  ;r-:nual. 

Note  that  these  deviations  from  tne  FORTRAN  syntax  requ i fement s  of  the 
manual  apply  only  to  RSX-11.  Your  resulting  proqram  cannot  be  freely 
transported  to  another  PDP-11  operating  system  without  careful 
planning  for  that  system's  peculiarities  and  language  requirement';. 
RSX-11  FORTRAN  IV  relaxes  the  strict  statement-ordering  specifications 
of  the  PDP-11  FORTRAN  Language  Reference  Manual  and  makes  only  the 
following  three  statement-ordering  requirements: 

1.  The  first  line  in  a  subprogram  must  be  a  FUNCTION,  SUBROUTINE 
or  BLOCK  DATA  stateiient. 

2.  The  last  line  in  a  program  unit  must  be  an  END  statement. 

3.  Statement   functions   must   be   flefined    before    they    are 
referenced. 

If  you  do  not  follow  the  statement-ordering  requirements  of  the 
manual,  the  compiler  will  issue  a  warning  diagnostic.  The  /nowr 
option  suppresses  the  diagnostic.-. 


3.1   SOURCE  LINES 

A  valid  RSX-11  FORTRAN   IV   source   line   consists   of   the   following 
sequence: 


1 


3. 
4. 


An  optional,  one-  to  five-character,  numeric  statement  label 
in  the  first  five  columns. 

Enough  blanks  to  position  the  next  character  at  ci.lumn  7. 
For  continuation  lines,  type  a  continuation  signal  chiiracter 
in  column  6  or  type  a  tab  character  followed  by  any 
nonalphabet ic  character  to  signal  continuation. 


Type  only  a  tab  character  to  show  that 
continuation. 

A   valid   FORTRAN   statement,   or   the 
statement. 

An  optional   comment   field   delimited 
exclamation  point  (!). 


the   1  i  ne   i  .s   not   a 


continuation 


of 


on 


the   left   by   an 
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FORTRAN  ignores  the  input  of   totally   blank   records, 
contain   a   FORTRAN   statement,   or   be  totally  blank; 
lines  that  contain  a  tab  and  an  optional  comment   field 
flagged  since  they  contain  no  valid  FORTRAN  statement. 


^       line   must 

in  particular, 

(!)   wi  11   be 


3.2   VARIABLE  NAMES 

RSX-11  FORTRAN  IV  allows  variable  names  to  extand  past  six  characters 
in  length.  However,  only  the  first  six  characters  are  significant  and 
must  be  unique  among  all  variable  names  in  the  program  unit.  The 
compiler  will  issue  a  warning  diagnostic  fur  each  variable  name  longer 
than  six  characters.  If  you  include  the  /NOWR  switch  in  the  compiler 
command  string,  this  diagnostic  will  be  suppressed. 


3.3   INITIALIZATION  OF  COMMON  VARIABLES 


RSX-11  FORTRAN  IV  allows  you  to  initialize  variables  in  COMMON, 
including  blank  COMr«lON,  in  any  program  unit  by  using  the  DATA 
statement.  However,  a  task  linked  to  a  global  common  block  cannot 
initialize  FORTRAN  COMMON  blocks  residing  in  that  area.  Instead,  you 
can  create  a  global  common  block,  data- i n i t i a  1  i ze  it,  and  define 
FORTRAN  COMMON  areas  using  a  BLOCK  DATA  subprogram  (see  the  Tasjc 
Builder  Manual  and  the  PDP-11  FORTRAN  Language  Reference  Manual) . 


3.4   INPUT/OUTPUT  FORMATS 

RSX-11  FORTRAN  IV  allows  formatted  input  and  output  for  transferring 
ASCII  files  and  provides  unformatt<»d  and  directaccess  input  and  output 
for  transferring  binary  records. 


Your  use  of  ERR=parameter  can  intercept  run-time  errors  and  transfer 
control  to  a  predetermined  program  label.  You  ran  specify  this 
parameter  in  the  READ,  WRITE,  ENCODE,  or  DECODE  statements. 


3.4.1   Formatted  I/O 

The  formatted  input/output  routines  read  or  write  va r i able- length , 
formatted  ASCII  records.  A  record  consists  of  a  number  of  ASCII 
characters,  t  ransmi  tt-^.'d  under  control  of  a  format  specification. 


3.4.2   Direct-Access  I/O 

The  directaccess  input/output  routines   read  or   write   f  i  xed- 1  engt:  h  , 

unformatted   binary   records.    The   logical  record   structure   for  .i 

directaccess  file  is  described  in  the  DEFINE  FILE   statoment   or   the 

OPEN  statement.   The  records  contain  only  the  specified  data. 

The  directaccess  record  structure  is  independent  of  the  physical  block 
size  of  the  I/O  device.  However,  you  can  achieve  more  efficient 
operation  when  the  record  size  if;  an  exact  divisor  or  multiple  of  PS*^ 
words. 
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CHAPTER  4 
INCREASING  FORTRAN  IV  PROGRAMMING  EFFICIENCY 

4.1   FACTORS  AFFECTING  PROGRAM  EFFICIENCY 


This  chapter  is  directed   tc 


the   proqrammer   who   is   interested   in 


minimizinq  program  executiori  time  or  storage  space  requirements. 


The  relative  efficiency  of 


FORTRAN   object   program   derives   from 


several  factors,  which  fall  into  two  classes 


The  way  you  code  your  source  proqr 


am , 


2.   The  way  the  compiler  treats  your  source  program. 

These  two  factors  are  interrelated.  Your  use  of  certain  programming 
techniques  in  your  source  program  can  increase  compiler  optimization. 

Section  4.2  deals  with  the  situations  in  which  the  compiler  generates 
the  most  efficient  code.  Section  4.3,  Programming  Techniques,  aims  at 
improving  programming  efficiency. 

Each  topic  discussed  in  the  following  section  is  flagged  with  one  or 
both  of  the  following  reniarks: 


(space) 


(time) 


indicates  that   the 


primary   concern   is   to   minimize 


program  memory  requirements, 


indicates  that   the 
execution  time. 


primary   concern   is   to   minimize 


4.2   INCREASING  COMPILATION  EFFECTIVENESS 

The   following   programming   suggestions   will   increase   compilation 
ef  feet  iveness . 

1.   Using  the  optimizer  effectively  (space, time) 

Avoiding  certain  programming  constructs  allows  the  optimizer 
greater  freedom  to  discover  common  subexpressions  in  source 
programs.  Specifically,  avoid  usage  of  KQUIVALFNCt:  and 
COMMON  variables,  and  SUBROUTINE  and  FUNCTION  dummy 
arguments. 
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Minimizing  array  vector  table  storage  (space) 

The  FORTRAN  array-vectoring  feature  decreases  the  time 
required  to  compute  the  address  associated  with  an  element  of 
a  multidimensional  array  by  precomputinq  certain  of  the 
multiplication  operations  involved.  The  values  precomputed 
are  stored  in  a  table  called  '.he  "vector"  for  the  particular 
array  dimension. 


You  can  take  the  following  steps  to  reduce  the  space  required 
for  array  vectors: 


Specify  the  largest  dimensions  first 
that  allocates  uhe  array,  in  order  to 
of  vector  table  entries  (as  the  first 
vectored).   For  example: 


in  the  statement 
minimize  the  number 
dimension  is   never 


INTEGER  A(350,10)    requires  10  words  t.  vector 


INTEGER  A(10,350)    require-  350  words  to  vector 


The   compiler   computes   a 
f'jlates   the   number  of  wort 
'.o  the  number  of  words  requi 
this   tradeoff   is   favorabl 
compared   to   the   array), 


.pace   tradeoff   factor   that 

required  for  vector  storage 

3d  to  store  the   arr^y.    If 

(the  vector  table  ,  .s  small 

the    arrav    is    vectored. 


Therefore,  the  proper  ordering  of  dimensions  not  only 
saves  table  space  for  all  vectored  arrays,  but  can  also 
cause  other  arrays  to  be  made  eligible  for  vectoring. 

Try  to  keep  similar  arrays  dimensioned  in  the  same  order, 
so  that  certain  arrays  will  share  vector  tables.  For 
example : 

INTEGER  A(9,4,5),  B(9,4,7),  C(9,8) 


• 


all  share  the  same  two  vectors,  one  for  the  second  array 
dimension  and  one  for  the  third.  The  vector  for  the 
second  dimension  will  have  eight  elements  (at  one  word 
each)  because  C  has  the  largest  second  dimension,  eight. 
Similarly,  the  vector  for  the  third  dimension  has  seven 
elements. 

In  the  general  case,  two  arrays  share  a  vector  table  for 
dimension  i  if  each  dimension  less  than  i  in  each  array 
is  identical  to  the  same  dimension  for  the  other  array. 
In  the  example  given  above,  arrays  A,  R,  and  C  share  the 
vector  for  the  second  dimension  because  each  array  has  a 
first  dimension  equal  to  nine. 


You  can  disable  vectoring  completely  by  specifying  the 
/NOVA  option  in  the  command  string  to  the  compiler.  No 
vector  tables  will  be  generated,  but  the  resulting 
program  executes  more  slowly  than  with  vectoring.  You 
can  make  this  tradeoff  if  array  usage  is  not  heavy  in 
speed-critical  sections  of  the  program,  or  if  saving 
space  is  your  primary  goal. 

Mul t id imens ioned  array  usage  (time) 

When  you  use  multidimensional  arrays,  the  number  of  specified 
variable  subscripts  affects  the  time  required  to  make  the 
array  reference.  Therefore,  you  can  take  the  following  steps 
to  optimize  array  references. 
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Use  constant  subscripts  whenever  possible.  Constant 
subscripts  are  computed  during  compilation  and  require  no 
extra  operations  at  execution  time. 

Make  totally  constant  array  references  wherever 
appropriate.  These  references  receive  the  hiqhest  level 
of  optimization.   For  example: 


I  =  1 
A(I)  : 


0.0 


is  not  so  efficient  as 

I  =  1 

A(l)  =  0.0 

The  former  case  requires  a  run-time  subscript  operation; 
in  the  latter,  the  compiler  can  calculate  the  address  of 
the  first  element  of  array  A  at  compilation  tine. 

4.   Formatted  input/output  (space, time) 

FORTRAN  IV  precompi les  and  compacts  FORMAT  statements  that 
are  present  in  the  source  program.  This  feature  affects  the 
space  required  to  store  the  format  at  run  time,  and  the  speed 
of  the  input/output  operations  that  make  use  of  the  format. 


are 
are 


For  this  reason,  object-tine  formats  (those  formats  that 
specified   in   arrays   rather   than  as  FORMAT  statements) 
considerably  less  efficient. 

Data  type  selection  (space, time) 

The  addressing  modes  of  the  PDP-11  processors,  and  various 
optimization  considerations  internal  to  FORTRAN  TV,  allow 
more  efficient  code  to  be  generated  for  certain  data  types 
than  for  others.   Specifically: 

•  Use  the  INTEGER  data  type  wherever  possible.  RRX-11 
FORTRAN  IV  performs  extensive  optimizations  on  this  data 
type. 

•  Use  REAL*4  rather  than  DOUBLE  PRECISION  (REAL*R)  wherever 
possible.  Single-precision  operations  are  significantly 
faster  than  double-precision,  and  storage  space  is  saved. 

•  Avoid  unnecessary  modemixing.   For  example: 

A  ^  n  .  n 
is  preferable  to 
A  =  0 

•  Use  two  REAL*4  variables  rather  than  a  COMPLEX*^  when  you 
make  minimal  use  of  COMPLEX  variables  in  the  program. 
REAL*4  operations  receive  more  optimization  than  COMPLEX 
operations. 
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Testing  "flag"  variables  (space) 

Wherever  possible,  use  comparisons  with  zero.  Comparinq  any 
data  type  to  a  zero  value  is  a  special  case  that  requires 
less  executable  code.  An  example  of  such  a  case  is  the 
f ol lowing : 


IF  (I  .LT.   1)  GOTO  ino 
requires  more  code  than 


IF  (I  ,LE, 


0)  GOTO  100 


** 


2  operations  (time 


Explicitly  specifying 


'2      when   doubling   the   value 


an 


expression,   or 

causes  more  efficient  code  t 


2    when  squaring  the  value  of  an  expression 


o  be  generated.   For  example 


A  =  (B  +  ARRAY (C) ) 


*  *  T 


is  preferable  to 


A  =  (B  +  ARRAY (C) ) 


(B  -t-  ARRAY(C) 


despite  the  fact  that  (B  +  ARRAY(C))  is  computed  only  once  in 

Note   that   this   applies   only  to  expression 


ei  ther 
values; 


case , 

T  *  * 


2  is  as  efficient  as  I*I 


8.  Compilation  options  (space) 

To  minimize  the  space  required   for   program   execution,   you 
should  supply  the  following  options  to  the  compiler: 

/-SN  (/NOSN)  to  suppress  line  number  traceback 
/-VA  (/NOVA)  to  suppress  all  array  vectoring 

In  addition,  do  not  specify  the  /I4  (2-word  integer   default) 
option  unless  you  require  it. 

9.  Compilation  options  (time) 


Specify  the  following  compiler  option  to  optimize   an   ohiect 
program  for  execution  time. 

/-SN  (/NOSN)  to  suppress  line  number  traceback 


Do   not   specify   the    following    options 


optimization  and  array  vectoring  speed  program  execut 


since    global 


ion , 


/-VA  (/NOVA) 


to  disable  arra 


y  vectoring 


4.3   PROGRAMMING  TECHNIQUES 

The  following  comparisions  of  different  programming  methods  can  direct 
you  to  more  efficient  programming  techniques.  While  both  methods  are 
correct  for  the  particular  operation,  the  technique  on  the  tight  is 
demonstrably  more  efficient  than  the  technique  on  the  left. 
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Make  use  of  the  increment  parameter  in  DO  loops, 


INEFFICIENT 


DIMENSION  A(20) 
DO  ion  1=1, in 
A(2*I)=B 


100   CONTINUE 


EFFICIENT 


DIMENSION  A(?0) 
DO  inn,  1=2,20,2 
A{I)=B 
ion   CONTINUE 


In  the  inefficient  example,  an  additional  calculation  is 
performed  (2*1)  each  time  throuqh  the  loop.  You  avoid  these 
calculations  in  the  efficient  example  by  havinq  the  count 
incremented  by  two. 


Avo 


id  placing  calculations  within  loops  whenever  possible 


INEFFICIENT 


EFFICIENT 


DO  10  1  =  1, 2n 
DO  20  J=l,5n 

20   A(J) =A(J)+I*B*C 

10   CONTINUE 


TEMP1=B*C 
DO  in  1=1,20 
TEMP2=I*TEMPI 
DO  20  ,7=1  ,  SO 

20   A(J)  =A(.n +TRMP2 

10   CONTINUE 


The  calculation  (B*C)  within   the   loop   of   the   inefficient 


example   is   evaluated   1000  times, 


Calculations  are  handled 


more  economically  when  done  outside  the  loop.  In  the 
efficient  example,  980  "FLOATS"  and  1979  floating  multiplies 
were  saved  by  performing  the  (B*C  and  I)  calculations  outside 
the  loop. 

Nest  DO  loops  properly,  to  increase  speed  by  minimizing  the 
loop  initialization. 


INEFFICIENT 


EFFICIENT 


DIMENSION  A(100,10) 
DO  '^O  1  =  1,100 
DO  '^O  J  =  l,10 


DIMENSION  A(100,in) 
DO  '^.0  J=l  ,  10 

DO  «=<o   I  =  1,1  no 


60   A(I,J)=B 


f^n   A(I,J)=B 


In  the  first  example,  the  inner  DO  loop   is   initialized   100 


times , 


the  efficient  example  is  initialized  only  10  times 


4.   Use  INTEGER  mode  as  much  as  possible  for  your  calculations 


INEFFICIENT 


EFFICIENT 


A=B+I+J 


A=B+  (  I+.7) 


Also,  do  calculation  in  REA[,  mode  when  the  dominant   mode   of 


an  expression  is  DOUBLE  PRECISION  or  COMPLEX 


Calculation  is 


most  efficient  in  integer  mode,  less  efficient  in  REAL   mode 
and  least  efficient  in  DOUBLE  PREC.'SION  or  COMPLEX. 

Avoid  division  within  programs  wherever  possible. 


INEFFICIENT 


EFFICIENT 


A=B/2 


A=  B< 


Since   multiplication   is   faster   than   division, 
execution  time. 


it   saves 
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A.l   INTEGER  FORMAT 


Sign 


Binary  numDer 


15     14 


Integers  are  stored  in  a  two's  complement  representation.  When  the 
/I4  compiler  switch  is  used,  an  integer  is  assigned  two  words, 
although  only  the  high-order  word  (the  word  having  the  lower  address) 
is  significant.  By  default,  integers  will  be  assigned  to  a  single 
storage  word.  Explicit-length  integer  specifications  (INTRHRR*?, 
INTEG£R*4)   always  taKe  precedence  over  the  setting  of  the  /I4  switch. 


Integer  constants  must 
example: 

+22   =  00n2fi(octal) 
-7  =  17771  (octal) 


lie 


in 


the   range   -327r.8 


A. 2   FLOATING-POINT  FORMATS 

The  exponent  for  both  two-word  and  four-word  floating-point  formats  is 
stored  in  excess  128  (200(octal))  notation.  Binary  exponents  from 
-128  tc  +127  are  represented  by  the  binary  equivalents  of  n  through 
25^  (0  through  377 (octa 1 ; ) .  Fractions  are  represented  in 
signmagnitude  notation  with  the  binary  radix  point  to  the  left. 
Numbers  are  assumed  to  be  normalized  and,  therefore,  the  most 
significant  bit  is  not  stored,  because  of  redundancy  ("hidden  bit 
normalization").  This  bit  is  as5--umed  to  be  a  1  unless  the  exponent  is 
0  (corresponding  to  2-128),  in  which  case  it  is  assumed  to  be  n.  The 
value  0  is  represented  by  two  or  four  words  of  zeros.  For  example, 
+1.0  would  be  represented  by: 

40200 
0 

in  the  two-word  format,  or: 

40200 

0 
0 
0 


# 
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in  Lhe  four-word  format.   The  decimal  number  -5  is 

140640 
0 

in  the  two-word  format,  or: 

140640 

0 

0 

0 

in    the    four-word    format. 


A. 2.1   Real  Format  (Two-Word  Floating  Point) 


word  1 


word  2 


Sign 

0  • 

1  - 

Binary  encess 
128  exponent 

Hign-ora«" 
mantissd 

15  14                                  7  6                                     0 

Low-order  mantissa 

15 


Since  the  hiqh-order  bit  of  the  mantissa  is  always  1,  it  is  discarded, 
giving  an  effective  precision  of  74  bits,  or  approximately  7  digits  of 
accuracy.  The  magnitude  range  lies  between  approximately  .29  X  10-3R 
and  .17  X  10  39. 


A. 2. 2   Double-Precision  Format  (Four-Word  Floating  Point) 


word  1 


word  2 


word  3 


word  4 


Sign 

0    . 

! 

Binary  excess 
128  exponent 

Higri-ofdf'r 
manf  ssa 



15  14                                  7  6 

0 

Low-order  mantissa 

15 

0 

Lower-order  mantissa 

15 

0 

Lowest-order  mantissa 

15 


The  effective  precision  is  S6  bits,  or  approximately  17  decimal  digits 
of  accuracy.  The  magnitude  range  lies  between  .29  x  lfi-18  and  .17  X 
10  39. 
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A. 2. 3   Complex  Format 


word  1 


word  2 


word  3 


word  4 


Sign 


0  . 

1  - 

Binary  excess 
128  exponent 

High-ordef 
mantissa 

15 

14                                7  6 

0 

Real 
Part 

Low-order  mantissa 

15 
Sign 

C 

0 
1 

Binary  excess 
128  exponent 

High-order 
mantissa 

c 

15 

14                                  7  6 

Imaginary 

Pirt 

Low-order  mantissa 

15 


A. 3      LOGICAL*! 


Data  Item 


Any  non-zero  value  is  considered  to  have  a  logical  value  of  .TRUF. 
The  range  of  numbers  from  +1?7  to  -128  can  be  represented  in  LOGICAL*! 
format.   LOGICAL*!  array  elements  are  stored  in  adjacent  bytes. 


A. 4   HOLLERITH  FORMAT 


word  1 


word  2 


word  3 


char  2 

char  1 

15                                         8  7 

0 

Char  4 

char  3 

15                                     87 

0 

blank       40  (octal! 

char  n  in    255i 

15 


8  7 


Hollerith  constants  are  stored  internally  one  character  per  byte. 
Hollerith  values  are  padded  on  the  right  with  blanks  to  fill  the 
associated  data  item,  if  necessary.  Hollerith  constants  can  be  used 
only  in  DATA,  FORMAT,  and  CALL  statements.  Only  the  quoted  form  of 
Hollerith  constants  can  be  used  in  STOP  and  PAUSF  statements. 


• 
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A. 5   LOGICAL  FORMAT 


True:    word  1 


word  2 


False:    word  1 


word  2: 


unspecified 


377 


15 


unspecified 


15 


unspecified 


000 


15 


8  7 


unspecified 


15 


Logical  aOGICAL*4)  data  items  are  treated  as  LOGICAL*!  values  for  use 
with  arithmetic  and  logical  operators.  Any  non-zero  value  in  the 
low-order  bvte  is  considered  to  have  a  logical  value  of  true  in 
logical  expressions. 


Octal 

quivalent 

40 

101-13? 

44 

56 

Radix-50 

quivalent 

n 

1-3P 

33 

j4 

3^ 

3f^-47 

A. 6   RADIX-50  FORMAT 
Radix-50  character  set 

Character 
ASCII 

space 
A-Z 
$ 

• 

_iiused 
0-9  ^^0-71 

The   maximum   Radix-50    value    is    thus 

47*50**2+47*50+47    =    1 7 4 777 ( oc ta 1 ) . 

The  following  table  provides  a  convenient  means  of  translating  between 
the  ASCII  character  set  and  its  Radix-50  equivalents.  For  example, 
given  the  ASCII  string  X2B,  the  Radix-50  equivalent  is  (arithmetic  is 
performed  in  octal): 

X=113000 

2=002400 

B=000002 

X2B=115402 
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Table  A-1 
ASCII/Radix-5n  Equivalents 


Single  Chnr. 

or 

Second 

Third 

First  Char. 

Character 

Character 

space  noonno 

space  000000 

space  000000 

A  003100 

A  000050 

A  00000  1 

B  00fi200 

D  000120 

B  000002 

C  011300 

C  000170 

C  000003 

D  014400 

D  000240 

D  000004 

E  017500 

E  000  310 

E  000  00  5 

F  022fi00 

F  000360 

F  000006 

•   G  025700 

G  000430 

G  000007 

H  031000 

H  000500 

H  000010 

I  034100 

I  000550 

I  000011 

J  037200 

J  000620 

J  000012 

K  042300 

K  000670 

K  000013 

L  04  5400 

L  000740 

L  000014 

M  050500 

M  0  0  1010 

M  OOOOIS 

N  053^^00 

N  001060 

N  O0O0K> 

i        0  05(^700 

0  001130 

0  000017 

;;        P  0^2000 

P  001200 

P  0  000  20 

Q  065100 

0  001250 

0  000021 

R  070200 

R  001320 

R  000022 

S  073300 

S  001370 

S  000023 

T  07^^400 

T  001440 

T  000024 

U  101500 

U  001510 

U  000025 

V  104^00 

V  001560 

V  000026 

W  107700 

W  001630 

W  000027 

X  113000 

X  001700 

X  000030 

Y  11^100 

Y  001750 

Y  000031 

Z  121200 

Z  002020 

Z  000032 

$  124300 

$  002070 

?  000033 

.  127400 

.  002140 

.  000034 

unused  132500 

unused  00  2210 

unused  000035 

0  135600 

0  002260 

0  0000  36 

1  140700 

1  002330 

1  000037 

2  144000 

2  002400 

2  000040 

3  147100 

3  002450 

3  000041 

4  152200 

4  002520 

4  000042 

5  155300 

5  002570 

5  0000  4  3 

6  16  0  4  0  0 

6  002640 

6  000044 

7  163500 

7  002710 

7  000045 

8  166600 

8  002760 

B  00  00  4  6 

9  171700 

9  003030 

0  000047 
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B.l   LIBRARY  SUBROUTINE  SUMMARY 

In  addition  to  the  functions  intrinsic  to  the  FORTRAN  system,  there 
are  subroutines  in  the  FORTRAN  library  that  the  user  may  call  in  the 
same  manner  as  a  user-written  subroutine.   These  subroutines  are: 

ASSIGN  Allows  specification  at  run  time  of  file  name  or  device 
and  file  name  to  be  associated  with  a  FORTRAN  loqical 
unit  number. 

CLOSE      Allows  a  file  on  a  specified  loqical  unit  to  be  closed. 

DATE  Returns  a  nine-byte  string  containinn  the  ASCII 
representation  of  the  current  date. 

IDATE  Returns  three  integer  values  representing  the  current 
month,  day,  and  year. 

ERRSET  Allows  the  user  to  specify  the  action  to  be  taken  on 
detection  of  certain  errors. 

ERRSNS  Mlows  the  user  to  obtain  information  about  the  most 
recently  detected  error  condition. 

ERRTST  Allows  monitoring  of  certain  error  types  durinq  program 
execution. 

EXIT  Terminates  the  execution  of  a  program  and  returns 
control  to  the  executive. 

USEREX  Allows  specification  of  a  routine  to  be  invoked  as  part 
of  program  termination. 

FDBSET  Allows  specification  of  special  I/O  options  to  be 
associated  with  a  logical  unit. 

RAD50  Performs  conversion  of  up  to  six  Hollerith  character 
strings  and  returns  the  result  as  a  function  value. 

IRAD50  Performs  conversion  of  Hollerith  strings  to  Radix-^^f) 
representat  ion . 

R50ASC    Converts  Radix-SD  strings  to  Hollerith  strings. 

RANDU ,     Returns   a   pseudo   random  real   number   with  a  uniform 
RAN        distribution  between  D  and  1. 

SECNDS  Provides  system  time  of  day  or  elapsed  time  as  a 
floating  point  value  in  seconds. 
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TIME 


Returns  an  eiqht-byte  strinq  containinq  the  ASCII 
representation  of  the  current  tine  in  hours,  minutes, 
and  seconds. 


B.2   ASSIGN 

The  ASSIGN  subroutine  allows  the  association  of  file  name  information 
with  a  logical  unit  number.  The  ASSIGN  call,  if  present,  must  be 
executed  before  the  logical  unit  is  opened  for  I/O  operations  (by  RFAD 
or  WRITE)  for  sequential-access  files,  or  before  the  associated  OPEN 
or  DEFINE  FILE  statement  for  random-access  files.  The  device 
assignment  remains  in  effect  until  a  new  CALL  ASSIGN  is  performed. 
The  file  name  assignment  remains  in  effect  only  until  the  file  is 
closed.   The  call  to  ASSIGN  has  the  general  form: 


CALL  ASSIGN  (n,  name,  icnt) 

CALL  ASSIGN  requires  only  the  first  argument;  all  ot^lers  are  optional 
and,  if  omitted,  are  replaced  by  the  default  values  as  noted  in  the 
argument  descriptions.  However,  if  any  argument  is  to  be  included, 
all  arguments  that  precede  it  must  also  be  included. 

A  description  of  the  arguments  to  the  ASSIGN  routine  follows: 


logical  unit   number   expressed 
variable,  or  expression. 


as   an   integer   constant. 


name  variable,  array,  array  element,  or  Hollerith  or  literal 
string  containing  any  standard  device/file  name 
specification.  If  the  device  is  not  specified,  then  the 
device  remains  unchanged  from  the  current  assignments.  If 
a  file  name  is  not  specified,  the  default  names  as 
described  in  Section  2.S.1  are  used. 


icnt   specifies  the  number  of  characters  in   the   strinn 
If   'icnt'   is   zero   or   unspecified,  the  string 
processed  until  the  first  blank  or  null   character 
encountered . 


'name' . 

name  '  i  s 

(0)   is 


For  example,  in  the  following  program: 

CALL  ASSIGN( 3, 'TT: ' ) 

WRITE(3,-)  

CALL  CLOSE( 3) 
WRITE (3,-)  


both  WR:tE  operations  will  occur  on  the  terminal 
WRITE  to  revert  back  to  SY:,  another  CAr.L 
explicitly  setting  SY:   to  unit  3. 


To  cause  the  second 
ASSIGN  must  be  used. 


B.3   CLOSE 


The  CLOSE  subroutine  allows  the  currently  open  file  on 
to  be  closed.   The  form  of  the  call  is: 


a  logical   unit 


CALL  CLOSE  (n) 


where  n  is  an  integer  value  specifying  the  logical  unit.  If  the  file 
was  open  for  output,  any  partially  filled  buffers  are  written  to  the 
file  before  closing  it.    After   the   execution   of   CALL   rr.oSE,   any 
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buffers  associated  with  the  loqical  unit  are  freed  for  reuse  and  the 
filename  supplied  in  any  previous  CALL  ASSIGN  for  the  loqical  unit  is 
lost.  The  loqical  unit  is  thus  free  to  be  as:  ociated  with  anothior 
file. 


An  implicit  CLOSE  operation  is  performed  on  all  open  loqical  units 
when  a  proqram  terminates  (due  to  a  fatal  error  condition,  or  the 
execution  of  STOP  or  CALL  EXIT) . 


B . 4   DATE 

The  DATE  subroutine  can  be  used  in  a  FOF^TRAN  proqram  to  obtain  the 
current  date  as  maintained  within  the  system.  The  DATE  subroutine  is 
called  as  follows: 

CALL  DATE  (array) 

'array"  is  an  array  capable  of  holdinq  a  nine-byte  strinn.    The 
specification   in   ti.e   call  may  be  expr3ssed  as  the  array  name 


where 
ar  ray 
alone 


CALL  DATE  (a) 

in  which  the  first  three  elements  of  the  real  array  a  are  used  to  hold 
the  date  strinq,  or  as: 

CALL  DATE  (a  (  i) ) 


which  causes  the  nine-byte  string  to  t)eqin  at  the  i(th)  element  of  the 
array  a . 

The  date  is  returned  as  a  nine-byte   (nine-character)   strinn   in   the 
form: 


dd-mmm-yy 
where : 


dd    is  the  two-digit  date 

mmm   is  the  three-letter  month  specification 

yy    is  the  last  two  digits  of  the  year 


For  example: 

15-JAN-7H 


In  the  case  where  the  array  is  a  real  array,  4-1/?  words  are  used  to 
contain  the  data  strinq  with  the  remaining  array  storaqe  being 
untouched.  Therefore,  the  date  strinq  is  stored  in  the  first  nine 
bytes  in  the  elements  a  ( )  .; 
of  a(i+2)  are  unmodified. 


i+I),  and  a(i+?).   The  last  three  bytes 


B.5   I  DATE 


IDATE  returns  three  integer  values   representing   the   current   month, 
day,  and  year.   The  call  has  the  form: 

CALL  IDATE  (i,  j,  k) 
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If  the  current  date  were  March  19,  19'7'^.   the   values   of   the   inteqer 
variables  upon  return  would  be: 

i  =  3 

j  =  19 
k  =  76 


B.fi   ERRSET 

The  ERRSET  subroutine  allows  specification  of  the  action  to  be  taken 
when  an  error  is  detected  by  the  OTS.  The  error  action  to  be  taken  is 
individually  specified  for  each  error,  independent  of  other  errors. 
The  general  form  of  the  call  is: 


CALL  ERRSET  (number,  contin,  count,  type,  \oq ,    maxlim) 


where 


number  is  an  inteqer  value  specifyinq  the  error  number  to 
which  the  followinq  parameters  apply. 

contin  is  a  logical  value  specifyinq  whether  or  not  to 
continue  after  an  error.  .TRUE,  means  continue; 
.FALSE,  means  exit  if  this  error  occurs. 


count  is  a  logical  value  specifyinq  whether  to  count  this 
error  against  the  task's  maximum  error  limit. 
.TRUE,  means  count;   .FALSr.  means  don't  count  it. 

type  is  a  logical  value  specifyinq  the  type  of  continuation 
to  perform.  .TRUE,  means  that  an  RRR=  transfer  is  to 
be  taken,  if  available.  rf  this  action  is  indicated 
^nd  an  ERR=  keyword  is  not  specified  in  the  I/O 
statement,  then  the  task  will  exit  when  the  error 
occurs.  .FALSE,  means  return  to  the  routine  that 
detected  the  error  for  default  error  recovery. 

log  is  a  logical  value  specifyinq  whether  to  produce  an 
error  message  for  this  error.  .TRUE,  means  produce  a 
message;   .FALSE,  means  don't  produce  a  message. 

maxlim  is  a  positive  inteqer  value  used  to  set  the  task's 
maximum  error  limit.  The  default  value  is  set  to  11  at 
task  initialization. 

Consult  Section  C.2,  OTS  Error  Diagnostics,  for  a  complete  descriptit^n 
of  the  allowed  values  and  meanings  of  these  arguments. 

Null  arguments  are  permitted  for  all  but  the  first  argument  and   cause 
no  change  in  the  current  state  of  that  control  code. 
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8.7   ERRSNS 

Ihe  ERRSNS  subroutine  allows  the  user  to  obtain  information  about   the 

most   recent   error   that   has  occurred  during  proqram  execution.   The 
general  form  of  the  call  is: 

CALL  ERRSNS  (num,  fcserr,  fcserl,  iunit) 

where: 


num        is  an  INTEGER*?  variable  or  array   element   into   which 
«y  i  1 1  be  stored  the  most  recent  error  number. 

(A  zero  will  be  returned  if  no  error  has  occurred.) 

If  the  last  error  occurred  as  a  resilt  of  an  error  indication  from 
File  Control  Services  (PCS),  then  the  next  three  parameters  will 
receive  selected  values  from  the  File  Descriptor  Block  (FDR). 
Otherwise,  values  of  zero  will  be  returned.  Consult  the  I/O 
Operations  Reference  Manual  for  definitions  of  the  interpretation  of 
the  PCS  error  return  codes. 

fcserr     is  an  INTEGER*?  variable  or  array  element  into  which  will  be 
stored  the  F.FRR  field  of  the  FOB. 

fcserl     is  an  INTEGER*?  variable  or  array  element  into  .hich  will  be 
stored  the  F.FRR+1  field  of  the  FOB. 

iunit      is  an  INTEGER*?  variable  or  array  element  into  which  will  be 
stored  the  logical  unit  number. 

From  zero  to  four  arguments  nay  be  specified.  Specifying  zero 
arguments  serves  to  clear  ERRSNS  from  previous  calls.  To  determine  if 
an  error  occurs  in  a  given  section  of  a  proqram,  the  followino 
technique  is  suqgested: 

1.   Call  ERRSNS  just  prior  to  the  segment  in  order  to   clear   any 
previous  error  data. 

?.Executethesection. 

3.   Call  ERRSNS  again  and  branch  on  a  non-zero  argument  to   error 
analysis  code. 

For  example: 


CALL  ERRSNS 

CALL  ASSIGN  ( 1 ,' NAME . DAT ' ) 

CALL  FDBSET  ( 1 ,' OLD ',' SHARE ' ) 

CALL  ERRSNS  (lERR) 

IF  (lERR.NE.O)  GO  TO  100 
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B.8   ERRTST 

The  ERRTST  subroutine  allov/s  the 
errors  detected  during  program  executi 


user  program  to  monitor  the  types   of 


on 


The  call  is  of  the  form; 


CALL  ERRTST 


J) 


where  i  is  the  error  number  and  the  value  of  1  is  returned  as 

j=l  if  error  number  i  has  occurred 
j=2  if 

The  sequence 


error  number  i  has  not  occurred 


CALL  ERRTST  (4 3,  J) 
GO  TO  (10,20) ,J 
10  CONTINUE 

transfers  control  to  statement  10  if  an  error  4  3   ha; 
Section  C.2.3.2  for  a  discussion  of  error  codes  and  messages, 


occurred 


See 


The  ERRTST  routine  als 


o  resets  to  zero  the  error  flag  for   that   error 


class  (but  not  the  error  count  used  by  ERRSFT) .   For  example: 

CALL  ERRTST  (I ,J) 
CALL  ERRTST  (I ,J) 

The  second  call  is  guaranteed  to  return  J=2.  The  ERRTST  subroutine  is 
independent  of  the  ERRSET  subroutine  and  neither  directly  influences 
the  other,  except  that  ERRSET  can  cause  execution  to  terminate. 


B.9   EXIT 

A  call  to  the  EXIT  subroutine,  in  the  form: 

CALL  EXIT 

is  equivalent  to  the  STOP  statement  but  does  not  produce  a  message. 
It  causes  all  files  to  be  closed  and  the  issuing  task  to  be 
terminated . 


B.IO   USEREX 


USEREX  is  a  subroutine  that  al.ows  specification  of  a 

invoked    as    part   of   program   termination.  This 

operations  in  non-FORTRAN  routines.   The  form  of  the 
is : 


routine   to   be 

allows   cleanup 

sub  rout  i  ne   cal 1 


CALL  USEREX  (name) 

where  "name"  is  the  routine  that  is  called  at  exit  time  and  should 
appear  in  an  EXTERNAL  statement  somewhere  in  the  program  unit. 
Control  is  transferred  with  a  JSR  PC, name  instruction  after  all 
procedures  required  for  FORTRAN  IV  program  termination  have  been 
completed.  The  transfer  of  control  takes  place  instead  of  the  normal 
exit  to  the  Executive.  The  routine  specified  by  USEREX  may  perform 
the  exit  procedure  itself  or  return  with  an  RTS  PC,  and  FORTRAN  will 
perform  an  exit. 
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B.ll   FDBSET 

The  FDBSET  subroutine  permits  specification   of   s[)ecial   input/output 
options  available  through  File  Control  Services  (FCS). 


CALL  FDBSET  (unit,  mode,  share,  numbuf,  initsz,  extend; 


where 


uni  t 


mode 


is  an  inteqer  value  specifyinq  the  loqical  unit  to 
which  the  subsequent  arquments  apply. 

is  one  of  the  followinq  literals  specifyinq  the  type  of 
access  to  be  ured  (only  the  first  letter  is  checked  for 
val idi  ty)  : 


READONLY 


'NEW 
'OLD' 
'APPEND' 


UNKNOWN 


MODIFY 


;sup' 


for   read-only   access   to   an   existinq 

file. 

for  creatinq  a  now  file. 

for  accessinq  an  existinq  file. 

for   append inq   to   an    existinq    file 

(meaningful  for  sequential  files  only). 

whien  it  is   not   known   whethier   a   file 

exists. 


This   option   searches  for  it 


opens   it 


if 


It 


already   exists 


or 


creates  the  file  if  it  does  not. 

open  an  old  file  for  updating.   The  file 

cannot  be  extended. 

open  a  new  file  (for  output)  but  inhibit 

superseding  of  the  previous  version. 


If  this  argument  is  omitted,  the  default  is   determined 
by   the  first  I/O  operation  performed  on  that  unit.   If 


IS   assumed: 


a  WRITE  operation  is  first,  'NEW 

READ  operation  is  first,  'OLD'  is  assumed 


if 


share 


IS 


the   literal 


SHARE 


indicating   that 


the 


FCS 


shared-access  bit  should  be  set 


numbuf 


ini tsz 


extend 


is  an  integer  value  indicating  the  number  of  internal 
buffers  to  be  used  for  mult i buff ered  input/output.  If 
this  argument  is  omitted,  one  internal  buffer  is  used. 
The  ACTFIL  option  in  the  Task  Builder  command  seciuence 
is  used  to  extend  the  buffer  area. 

is  an  inteqer  value  indicatinq  the  initial  allocation, 
in  disk  blocks,  of  a  new  file. 

is  an  inteqer  value  specifyinq  the  number  of  blocks  by 
which  to  extend  a  file. 


FDBSET  can  only  be  called  prior  to  opening  the  unit  specified   in   the 


first   argument, 


CALL   FDBSET    CALL   ASSIGN 


and   the   DEFINEFILE 


statement  can  be  used  together 


The  unit  number  argument  is  required.   All  other  arquments  may  be  null 
or  missing  to  indicate  no  specification  for  that  argument. 


1.  Mult ibuffer inq  is  not  implemented  in  RSX-llM, 
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B.12   RAD50 

The  RAD50  function  subprogram  provides  a  simplified  way  to  encode  task 
names  in  Radix-50  notation.   The  form  of  the  call  is 


RAD50  (name) 


where 


name       is  the  variable  name  or  array  element  corresponding   to 
an  ASCII  string. 

Note  that  the  RAD50  function  may  be  used  as  an  argument   to   a   system 
directive  subroutine.   For  example: 

REAL*8  A 

DATA  A/ 'JOE    '/ 

CALL  REQUES  ( RAD50 { A) , . . . ) 

The  RAD50  function  is  equivalent  to 
subprogram: 

FUNCTION  RAD50(A) 

CALL  IRAD50  (fi,A,RAD50) 

RETURN 

END 


the   followinq   FORTRAN   function 


Scanning  of  input  characters   terminates   at   the   first   non-Radix-sn 
character  encountered  in  the  input  string. 


B.13   IRAD50 

The  IRAD50  subprogram  performs  conversions  between  Hollerith  (text) 
strings  and  Radix-50  representation.  Radix-50  representation  is 
required  by  the  ISA  Process  Control  and  System  Directives  Subroutines 
for  the  specification  of  task  names.  (See  Section  A.^  or  the  PDP-11 
FORTRAN  Language  Reference  Manual  for  details  of  the  RarTrx'^sl) 
representat  ion . ) 

IRAD50  may  be  called  as  a  FUNCTION  subprogram  if  tht/  return  value  is 
desired,  or  as  a  SUBROUTINE  subprogram  if  no  return  value  is  desired. 
The  form  of  the  call  is: 


n  =  IRAD50  (icnt,  input,  output) 


or 


CALL  IRAD50  (icnt,  input,  output) 


where 


lent 


is   the   (integer)   maximum   number   of   characters   to 
convert. 


input      is  an  ASCII  (Hollerith)  text  string  to  be  converted   to 
Radix-50. 

output     is   the   location   for   storing   the   results   of    the 
conversion. 

n         is  the  number  of  characters  actually  converted. 


# 
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Three  characters  of  text  are  packed  into  each  word  of  output..  The 
number  of  output  words  modified  is  computed  by  the  expression  (in 
integer  mode) 

(ICNT+2)/3 

Thus  if  a  count  of  four  is  specified,  two  words  of  output  will  he 
written  even  if  only  a  one-character  input  strinq  is  qiven  as  an 
a  r  g  u  me  n  t . 

Scanning  of  input  characters  terminates  at  the  first  non-Radi  x-'sn 
'character  encountered  in  the  input  strinq. 


B.14   R50ASC 

The  R50ASC  subprogram  provides  decoding   of   Radix-'jO   encoded   values 
into  ASCII  strings.   The  form  of  the  call  is: 

CALL  R50ASC  (icnt,  input,  output) 
where: 

is  the  number  of  output  characters  to  be  converted. 


lent 
input 

output 


is  the  variable  or  array  containing  the  Radix-Sn  input. 
Note  that  (icnt+2)/3  words  will  be  read  for  conversion. 

is  the  variable  or  array   into   which   icnt   characters 
ASCII  (bytes)  will  be  placed. 


If  the  undefined  Radix-50  code  is  detected,  or  the  Radix-5n  word 
exceeds  the  i.aximum  value  174777  (octal),  then  question  mark(s)  are 
placed  in  the  output  buffer. 


B.15   RANDU,RAN 

The  pseudo  random  number  generator  can  he  called  as  a  subroutine, 
RANDU,  or  as  an  intrinsic  function,  RAN.  The  subroutine  call  is 
performed  as  follows: 

CALL  RANDU  (il,  i?,    x) 

where  il  and  i2  are  previously  defined  i.iteger  variables  and  x  is  the 
real  variable  name  in  which  a  pseudo  random  number  between  zero  and  1 
is  returned.  il  and  i2  should  be  initially  sot  to  zero.  il  and  i? 
are  updated  to  a  ne..  generator  base  during  each  call.  Resetting  il 
and  i2  to  zero  repeats  the  random  number  sequence.  The  values  of  il 
and  i2  have  a  special  form:  only  zero  or  saved  values  of  il  and  i? 
should  be  stored  in  these  variables. 

Use  of  the  random  number  subroutine  is  similar  to  the  use  of  the  RAN 
function,  where: 

x  =  RAN  ( il ,  12) 

is  the  function  subprogram  form  of  the  pseudo  random  number  generator. 
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B.lfi   SECNDS 


The  SECNDS  function  subprogratn  returns  the  system  time  as  a  sinqle 
precision  float i nq-po i nt  value  less  the  value  of  its  sinqle  arqunent. 
For  example: 

TIM=SECNDS{n.) 

will  return  the  number  of  seconds  since  midniqht,  that  is,  the  current 
time  of  day.  It  can  be  called  with  a  non-zero  arqument  for  performinq 
elapsed  time  computations,  as  in: 

C        START  OF  TIMED  SEOUEMCE 
Tl  =  SECNDS(n.) 


G 
C 
C 


CODE  TO  BE  TIMED 
DELTA  =  SECNDS CTl) 


where  DELTA  will  qive  the  elapsed  time. 

The  value  of  SECNDS  is  accurate  to  the  resolution  of  the  system  clock: 
O.Olf^'^...  seconds  for  a  «0-cycle  clock  and  O.n?  seconds  for  a 
5n-cycle  clock.  Systems  with  a  proqrammable  clock  have  resolution  not 
qreater  than  the  clock  tick  as  set  at  SYSGEN. 

With  24  bits  of  precision  for  real  values,  this  representation  is 
accurate  to  the  clock  tick  for  v  lues  up  to  about  two  days  in 
durat  ion . 


B.17   TIME 

The  TIME  subroutine  allows  the  user  to  access  the  current  system   time 
as  an  ASCII  strinq.   Its  form  is  as  follows: 

CALL  TIME  (a) 

The  TIME  call  returns  the   time   as   an   eiqht-byte   (e iqht-characte r  , 
includinq  colons)  ASCII  string  of  the  form: 


hh :mm: ss 


where 


hh    is  the  two-digit  hour  indication 
nun    is  the  two-diqit  minute  indication 
as    is  the  two-di  !;t  second  indication 

For  example: 

10:45:23 

A  24-hour  clock  is  used.   This  quantity  is  typically  output  with  a  ?A4 
format  specification. 
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C.l   COMPILER  ERROR  DIAGNOSTICS 

The  FOFxTRAN  IV  Compiler,  while  readinq  and  processing  the  FORTRAN 
source  program,  can  detect  syntax  errors  (or  errors  in  qenerril  form) 
such  as  unmatched  parentheses,  illegal  characters,  unrecognizable  key 
words,  and  missing  or  illegal  statement  parameters. 

The  error  diagnostics  are  generally  clear  in  specifying  the  exact 
nature  of  the  error.  In  most  cases,  a  check  of  the  general  form  of 
the  statement  in  question  as  described  in  the  PDP-ll  FORTRAN  Language 
Reference  Manual  will  help  determine  the  location  of  the  error. 

Some  of  the  most  common  causes  of  syntax  errors,  however,  are  typinq 
mistakes.  A  typing  mistake  can  sometimes  cause  the  compiler  to  give 
very  misleading  error  diagnostics.  The  user  should  note,  and  take 
care  to  avoid,  the  following  common  typing  mistakes: 


•   Missing  commas  or  parentheses  in  a  complicated 
FORMAT  statement. 


express  ion   or 


•  Misspelling  of  particular  instances  of  variable  names.  If  the 
compiler  does  not  detect  this  error  fit  usually  cannot), 
execution  may  also  be  affected. 


•   An  inadvertent  line  continuation  signal  on  the  line 
the  statement  in  error. 


f ol  lowi  ng 


•  If  the  user  terminal  does  not  clearly  differentiate  between  n 
(zero)  and  the  letter  0,  what  appear  to  be  identical  spellings 
of  variable  names  may  not  appear  so  to  the  compiler,  and  what 
appears  to  be  a  constant  expression  may  not  appear  so  to  the 
compi ler . 


If  any  error  or  warning  conditions  are  detected  in  a  compilation, 
following  message  is  printed  on  the  initiating  terminal: 


the 


[name ) Errors  :  n , Wa  r ni  ngs  :m 


where 


(name ] 


n 


is  the  six-character  name  of  the  program  unit  being 
compiled.  .MAIN.  is  the  default  name  of  the  main 
program  i f  no  program  statement  is  used.  The  default 
name  for  BLOCK  DATA  program  units  is  .DATA.. 

represents  the  number  of  error-class  messages  (those 
...essages  that  cause  the  statement  in  question  to  he 
'  qnored )  . 
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represents  the  number  of  wa r n i nq-class  messaqes  (those 
messages  indicatinq  conditions  that  can  be  ignored  or 
corrrcted,  such  as  missing  END  statements  or 
questionable  programming  practicet}. 


The  following  is  an  example  of 
issued  by  the  compiler. 


a  FORTRAN  IV  proqram   wit^   diaq  ostics 


FORTRAN  lU       U0:>.5 
^RROR r ERROR/ -SP-ERROR 


MON     I.'    MAY    Ba     I  I  :  U  :3b 


FAtJE    001 


0001 
0002 
0003 
0004 
0005 
0006 
0007 


10 


DOUF<LE  PRECISIDN 
DATA  INl/lOO/ 
D&LE=::INT/L'  f  .1; 
WRI  IE,  (6,   10)DF<LE 
FORMAT  ■:  1  X.F  I  .:'.<S' 
TNTEHEK  INT 
END 


nULE 


FORTRAN  11^  DIAGNOSTICS  FOK  PROGRAM  UNIT  .MAIN. 

IN  LINE  0004.   error:    SYNIAX  ERROR 

IN  LINE  0007.  warning:   NON  STANHARD  STnrMlEf^r  ilKlif  fv  IN(^, 


FORTRAN  IV  STORAGE  nAP  FOR  PROGRAM  DNII  .MAfN. 
LOCAL  VARIABLES.  .PSE(  I  ♦DATA.  SIZE  ^  OOOoM  (     A.  WORD';) 

NAME    I YPE 


NAME    TYPE   OFFSET 
DBLE    RjHB    000004 


NAME 
I"T 


TYPE   OFFSET 

L*j      ooooo:? 


OFFSET 


The  next  three  sections  describe  the  initial  phase  and  secondary  phas'- 
error  diagnostics  and  the  fatal  FORTRAN  iv  compiler  error  diagnostics. 


C.1.1   Errors  Reported  by  the  Initial  Phase  of  the  Compiler 

Some  of  the  easily  recognizable  FORTRAN  syntax  errors  are  detected  by 
the  initial  phase  of  the  compiler.  Errors  that  cause  the  statement  in 
question  to  be  ignored  are  tabulated  in  the  ERROR  coiint,  whereas  those 
that  are  correctable  by  the  compiler  are  counted  as  WARNINGS. 
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The  error  diagnostics  are  printed  after  the  source  statement  to   which 


they  apply  (the  L  error  diagnostic  is  an  exception; 
of  •_'.ie  diagnostic  is  as  follows: 

*****  r 


The  general  form 


Where  c  is  a  code  letter  whose  meaning  is  described  below; 

INITIAL  PHASE  ERROR  DIAGNOSTICS 


Code  Letter 


Description 


Columns  1-5    of 


continuation   line   are   not   blanK 


Columns  1-5  of  a  continuation  line  must  be  blank  except 


for  a  possible 
ignored  (WARNING 


D 


in   column   1 


the   columns 


are 


Illegal  continuation.   Comments  cannot  be  continued  and 
the   first   line   of   any   program   unit   cannot   be   a 


continuation  line, 


If  it  has  a  label   field 


then   it 


must   have 
(WARNING) . 


statement 


field 


The   line  is  deleted 


Missing  END  statement.  An  END  statement  is  supplied  by 
the  compiler  if  end-of-file  is  encountered  (WARNING). 

Hollerith  string  or  quoted  literal  string  is  longer 
than  255  characters  or  longer  than  the  remainder  of  the 
statement;   the  statement  is  ignored. 


Non-FORTRAN   character   used 


The   line   conta  i  ns 


character   that  is  not  in  the  FORTRAN  character  set  and 


is  not  used  in  a  Hollerith  string  or  comment  line 
character  is  ignored  (WARNING). 


The 


Illegal 

( non-nume  r  ic ) 


statement     label     definition.      Illegal 
character    in   statement   label;    the 


illegal  statement  label  is  ignored  (WARNING) 


M 


Line  too 


long 


to   print, 


There   are 


more 


than   Rn 


characters  (including  spaces  and  tabs)  in  a  line. 
Note:  this  diagnostic  is  issued  preceding  the  line 
containing  too  many  characters.  The  line  is  truncated 
to  80  characters  (WARNING) . 


Multiply  defined   label 
(WARNING) . 


The 


label 


1  s 


ignored 


Statement 


con ta 1 ns 


unbalanced    parentheses, 


The 


statement  is  ignored 


U 


Syntax  error,  such  as  multiple  equal  signp;.  The 
statement  is  not  of  the  general  FORTRAN  statement  form; 
the  statement  is  ignored. 

Statement  could  not  be  identified  as  a  legal  FORTRAN 
statement.   The  statement  is  deleted. 
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C.1.2   Errors  Reported  by  Secondary  Phases  of  the  Compiler 

Those  compiler  error  diaqnostics  not  reported  by  the  initial  phase  of 
the  compiler  appear  immediately  after  the  source  listinn  and 
immediately  before  the  storage  map.  Since  the  diaqnostics  appear 
after  the  entire  source  program  has  been  listed,  they  must  designate 
the  statement  to  which  they  apply  by  using  the  internal  sequence 
numbers  assigned  by  the  compiler. 

The  qeneral  form  of  the  diagnostic  is: 


Error: 
IN  LIME  nnnn,  text 

Warning: 

Where  nnnn  is   the   internal   sequence   number   of   the 
question,  and  text  is  a  short  description  of  the  error. 


statement 


in 


Below,  listed  alphabetically,  are  the  error  diaqnostics.  Included 
with  each  diaqnostic  is  a  brief  explanation.  Refer  to  the  PDP-ll 
FORTRAN  Language  Preference  Manual  for  information  to  help  correct  the 
error . 


The  notation   ****   signifies   that   a   particular 
statement  label  appears  at  that  place  in  the  text. 


variable   name   or 


SECONDARY  PHASE  ERROR  DIAGNOSTICS 

ACCESS=' DIRECT'  REQUIRES  FORM= ' UNFORMATTED ' 

FORM=' FORMATTED'  has  been  specified  for   a   direct 
FORTRAN   IV  Supports  only  unformatted  direct  access 
Correct  the  program  logic. 


access   file, 
i  nput/output . 


ADJUSTABLE  DIMENSI   .'.  ILLEGAL  FOR  ARRAY  **** 

An  adjustable  array  was  not  a  dummy  argument  in  a  subproqram  or 
the  adjustable  dimensions  were  not  inteqer  dummy  arguments  in  the 
subprogram.  A  dimension  of  one  is  used.  Correct  the 
program . 


source 


ARRAY  EXCEEDS  MAXIMUM  SIZE  or 
ARRAY  ****  EXCEEDS  MAXIMUM  SIZE 

The  storage  required  for  a  single 

total   is  more  than  is  physically 

particular   error   may   reference 

containing   the   atray  in  question,  or 

program  unit.   Correct  the  statement  in  error  or  reduce  the  space 

necessary  for  array  storage. 


array   or   for   all   arrays   in 

addressable  (>32K  words).   This 

either   the   actual   statement 

the  first  statement  in  the 


ARRAY  ****  HAS  TOO  MANY  DIMENSIONS 

An  array  has  more  than  seven  dimensions.    Correct 
The  legal  range  for  dimensions  is  one  to  seven. 


the 


program. 


****  ATTEMPTS  TO  EXTEND  COMMON  BLOCK  BACKWARDS 

While  attempting  to  EQUIVALENCE  arrays  in  COMMQM,  an  attempt  was 
made  to  extend  COMMON  past  the  recognized  beginning  of  COMMON 
storage.   Correct  the  program  logic. 


COMMON  BLOCK  EXCEEDS  MAXIMUM  SIZE 

An  attempt  was  made  to  allocate  more   space   to 
physically   addressable   (>32K   words).   Correct 
error  . 


COMMON   than   is 
the  statement  in 
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CONSTANT  IN  FORMAT  STATEMENT  NOT  IN  RANGE 

An  integer  constant  in  a  FORMAT  statement  was  not  in  the  proper 
range.  Check  that  all  integer  constants  are  ..ithin  the  legal 
range  (1  to  255) . 


DANGLING  OPERATOR 

An  operator  (such  as  +,-,*,/)  is  missing 
I=J+.   Correct  the  statement  in  error. 


an   operand 


Example 


DEFECTIVE  DOTTED  KEYWORD 

A  dotted  relational  operator  was  not  recognis^ed  or   there   is   a 

possible    misuse    of   decimal   point.    Check  the   format   for 

relational  operators;   correct  the  statement  in  error. 

DEFINE  FILE  MODE  MUST  BE  'U' 

The  third  argument  inside  parentheses  in  a  DEFIMP  FH.E   statement 
is  not  'U'  (unformatted).   Correct  the  mode  specification. 

00  TERMINATOR  ****  PRECEDES  DO  STATEMENT 

The  statement  specified  as  the  terminator  of  a  DO   loop   did   not 
appear  after  the  DO  statement.   Correct  the  program  logic. 


EXPECTING  LEFT  PARENTHESIS  AFTER  **** 

An  array  name  or  function  name  reference  is 
left   parenthesis.    Correct   the   statement 
parenthesis  is  included. 


not 
so 


f ol lowed 
that   the 


hy   a 
left 


EXPECTING  LEFT  PARENTHESIS  AFTER  SUBPROGRAM  NAME 

A  SUBROUTINE  or  FUNCTION  name  occurs  without  an  argument  list 
specification.  Check  for  a  typographical  error,  or  the  use  of 
the  same  name  for  a  local  variable  and  a  subprogram. 

EXTRA  CHARACTERS  AT  END  OF  STATEMENT 

All  the  necessary  information  for  a  syntactically  correct  FORTRAN 
statement  has  been  found  on  this  line,  but  more  information 
exists.  Check  that  a  comma  is  not  missing  from  the  line  or  that 
an  unintentional  continuation  character  does  not  appear  on  the 
next  line. 


FLOATING  CONSTANT  NOT  IN  RANGE 

A  floating  constant  in  an  expression  is  too  close  to  zero   to 
represented  in  the  internal  format.   Use  zero  if  possible. 


be 


ILLEGAL  ADJACENT  OPERATOR 

T..O  operators  (for  example,  *,  /,  logical  operators)  are 
illegally  placed  next  to  each  other.  Example:  I/*J.  Correct 
the  statement  in  error. 


ILLEGAL  CHARACTERS  IN  EXPRESSION 

An  illegal  character  has  been  found  in  an  expression, 
a  typographical  error  in  the  statement. 


Check   for 


ILLEGAL  DO  TERMINATOR  OKDhi-iiNo  '  T  LABEL  **** 

DO  loops  are  nested  improperly.   Verify  that  the  range  of  each  DO 
loop  lies  completely  within  the  range  of  the  next  outer  loof). 


ILLEGAL  DO  TERMINATOR  STATEMENT  **** 


A  DO  statement  terminator  was  not  valid.    Verify   that   the   DO 

statement   terminator   is  not   a  GOTO,   arithmetic   IF,  RETURN, 

another  DO  statement,  or  logical  IF   containing   one   of   these 
statements . 
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ILLEGAL  ELEMENT  IN  I/O  LIST 

An  item,  expression,  or  implied  DO  specifier 
illegal  syntax.   Correct  the  I/O  list. 


in  an  I/O  list  is  of 


ILLEGAL  ENCODE/DECODE  FORMAT  SPECIFIER 

The  format  specification  (second  argument  inside  parentheses)  in 
an  ENCODE/DECODE  statement  is  not  a  FORMAT  statement  label  or 
array  name.   Correct  the  FORMAT  speci  f  ic=it  ion  . 

ILLEGAL  ENCODE/DECODE  LENGTH  EXPRESSION 

The  length  specification  (first  argument  inside  paren  theser. )  in 
an  ENCODE  or  DECODE  statement  is  not  an  integer  expression. 
Correct  the  length  expression. 


ILLEGAL  ENCODE/DECODE  TARGET 

The  third  argument  inside  parentheses  in  an 
statement  is  not  the  name  of  an  array, 
variable.   Correct  the  target  specification. 


ENCODE 
array 


or   DFCODK 
element,  or 


ILLEGAL  INITIAL  VALUE  EXPRESSION  IN  DO  STATEMENT 

A  valid  integer  expression  does  not  follow  the  equals  sign 
DO  statement.   Correct  the  initial  value  expression. 


in 


ILLEGAL  STATEMENT  IN  BLOCK  DATA 

An  illegal  statement  ..as  found  in  a  BLOCK  DATA  subprogram. 
Verify  that  a  FORMAT  or  executable  statement  does  not  occur  in  a 
BLOCK  DATA  subprogram. 


ILLEGAL  STATEMENT  ON  LOGICAL  IF 

The  statement  contained  in  a  logical  IF  was   not   valid.    Verify 
that  the  statement  is  not  another  logical  IF  or  DO  statement. 


ILLEGAL  SUBSCRIPTS  OR  SUBPROGRAM  ARGUMENT 

An  illegal  element  occurred  within  a  sjbscript  list   or 
list  to  a  subprogram.   Correct  the  erroneous  statement. 


argument 


ILLEGAL  TYPE  FOR  OPERATOR 

An  illegal  variable  type  has  been  used  with  an  e:  -)onentiation  or 
logical  operator.  Check  that  the  variable  type  is  valid  for  the 
operation  in  question. 

ILLEGAL  USAGE  OF  OR  MISSING  LEFT  ^PARENTHESIS 

A  left  parenthesis  was  required  but   not   found,   or  a   variable 

reference    or    constant    is    illegally   followed  by   a   left 

parenthesis.   Correct  the  format  of  the  statement  in  error. 


range 


INTEGER  OVERFLOW 

An  integer  constant  or  expression   value   is   outside   the 
-327f;7   to   +327^7.   Correct  the  value  of  the  integer  constant  or 
expression  so  that  it  falls  within  the   legal   range   (-327';7   to 
+  327(^7). 


INVALID  COMPLEX  CONSTANT 

A  complex  constant   has 
statement  in  error. 


been   improperly   formed 


Correct   the 


INVALID  DIMENSIONS  FOR  ARRAY  **** 

An  attempt  was  made,  while  dimensioning  an  array,  to  explicitly 
specify  zero  as  one  of  the  dimensions.  Verify  that  zero  is  not 
used  as  a  dimension. 
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INVALID  END=  OR  ERR=  KEYWORD 

The  END=  or  ERR=  specification  in  an  input/output  statement  is 
incorrectly  formatted.  Check  for  a  typographical  error  in  the 
s  tatement . 


INVALID  EQUIVALENCE 

An  illegal  EQUIVALENCE,  or  EQUIVALENCE  that  is  contradictory  to  a 
previous  EQUIVALENCE,  was  encountered.  Correct  the  program 
logi  c . 


INVALID  FORMAT  SPECIFIER 

A  format  specifier  was  illegally  used.   Correct  tne  statement 
that   the   format  specifier  is  the  lahel  of  a  FORMAT  statement 
an  array  name. 


so 
or 


INVALID  IMPLICIT  RANGE  SPECIFIER 

An  illegal  implicit  range  specifier  (for  instance,  nona  Iph^L-^t  ic 
specifier,  or  specifier  range  in  reverse  alphabetic  order)  was 
encountered.  Verify  that  the  implicit  ranqo  specifier  indicates 
alphabetic  characters  in  alphabetic  order. 

INVALID  LOGICAL  UNIT 

A  logical  unit  reference  was  incorrect.  Correct  the  locjical  unit 
reference  so  that  it  is  an  integer  variable  or  constant  in  the 
range  1  to  99. 


INVALID  OCTAL  CONSTANT 

An  octal  constant  is  too  large  or  contains  a  digit  other  than 
0-7.  Correct  the  constant  so  that  it  contains  only  legal  digits 
that  fall  within  the  octal  range  n  to  177777. 


INVALID  OPTIONAL  LENGTH  SPECIFIER 

A  data  type  declaration  optional  length  specifier  is  illegal. 
For  example,  REAL*4  and  REAL*a  are  legal,  hut  REAL*^  is  not. 
Correct  the  statement  so  that  it  contains  only  a  valid  data  type 
declaration  length. 


INVALID  RADIX-Sn  CONSTANT 

An  illegal  character  was  detected  in  a  PADIX-Sn  constant, 
that  only  characters  from  the  RADIX-5n  character  set  are 
a  RADIX-50  constant. 


Ver  i  f y 
used  in 


INVALID  STATEMENT  LABEL  REFERENCE 

Reference  has  been  made  to  a  statement  number  that  is  of  illegal 
construction.  For  example,  GOTO  999999  is  illegal  since  the 
statement  number  is  too  long.  Check  that  the  statement  number 
consists  of  one  to  five  decimal  digits  placed  in  the  first  five 
columns  of  a  statement's  initial  line  and  that  it  does  not 
contain  only  zeroes. 


INVALID  SUBROUTINE  OR  FUNCTION  NAME 

A  name  used  in  a  CALL  statement  or  function  reference  is  not 
valid.  For  example,  use  of  an  array  name  in  a  CALL  statement 
routine  name  reference  is  illegal.  Verify  that  the  name 
specified  in  the  statement  is  spelled  correctly. 


INVALID  TARGET  FOR  ASSIGNMENT 

The  left  side  of  an  arithmetic  assignment 
variable  name  or  array  element  reference, 
in  error  . 


statement   is   not   a 
Correct  the  statement 


INVALID  TYPE  SPECIFIER 

An  unrecognizable  data  type  was  used. 
indicated  is  valid. 


Verify  that  the  data   type 
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INVALID  USAGE  OF  SUBROUTINE  OR  FUNCTION  NAME 

A  function  name  appeared  in  a  DIMENSION,  COMMON,  DATA,  or 
EQUIVALENCE  or  data  type  declaration  statement.  Correct  the 
statement  in  error. 


INVALID  VARIABLE  NAME 

A  variable  name  contains  an  illeqal   character,   is   missinq,   or 
does   not   begin   ..ith   an   alphabetic   character, 
statement  in  error. 


Correct   the 


LABEL  ON  DECLARATIVE  STATEMENT 

A  label  was   found   on   a   declarative   statement 


Correct 


the 


program  so  that  declarative  statements  do  not  have  lahels. 


MISSING  ASSIGNMENT  OPERATOR 

The  first  operator  seen  in  an  arithmetic  assignment  statement  was 


not   an   equal   sign   (=).    For   example, 
arithmetic  assignment  statement  in  error. 


T+.I=K. 


MISSING    COflMA 

The  comma  delimiter  was  expected   but 
format  of  the  statement  in  error. 


not   found. 


Correct   the 


Correct   the 


MISSING  COMMA  IN  OPEN  OR  CLOSE  KEYWORD  LIST 

T..O  options  in  an  OPEN/CLOSE  keyword  list  are  not  separated  by  a 
comma.   Check  for  a  typographical  error  in  the  statement. 

MISSING  DELIMITER  IN  EXPRESSION 

Two  operands  have  been  placed  next  to  each  other  in  an  expression 
with  no  operator  between  them.   Correct  the  statement  in  error. 

MISSING  EXPRESSION 

A  required  expression  (for  example,  the  limit  expression  in  a  DO 
statement)  was  omitted.   Correct  the  syntax  of  the  statement. 

MISSING  LABEL 

A  statement  label  was  expected  but  not  found.  For  example, 
ASSIGN  J  TO  I  is  illegal;  a  valid  statement  label  reference 
should  precede  'TO*  but  does  not.  Verify  that  the  reference 
preceding  'TO'  is  a  valid  statement  label  of  an  executable 
statement  in  the  same  program  unit  as  the  ASSIGN  statement. 

MISSING  LABEL  LIST  AFTER  COMMA 

In  an  assigned  GOTO  statement,  the  integer  variable  was  followed 
by  a  comma  but  no  list  was  found.  Check  for  a  typographical 
error  in  the  statement. 


MISSING  LEFT  PARENTHESIS  AFTER  OPEN  OR  CLOSE 

An  OPEN  or  CLOSE  statement  does  not  have  a  left  parenthesis 
preceding  the  keyword  list.  Check  for  a  typogr aoh i ca 1  error  in 
the  statement. 

MISSING  OPERATOR  AFTER  EXPRESSION 

An  expression  was  not  terminated  by  a  comma,  right  parenthesis, 
or  other  operator.  Check  for  a  typographical  error  in  the 
statement. 

MISSING  QUOTATION  MARK 

In  a  FIND  statement,  the  logical  unit  number  and  record  number 
were  not  separated  by  a  single  quotation  mark.  Correct  the 
statement  in  error. 
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MISSING  RIGHT  PARENTHESIS 

A  right  parenthesis  was  expected  but  not  found.  For  example, 
READ(5,ino,)  is  il]eqal.  Correct  the  fornat  of  the  statement  in 
error. 


MISSING  'TO'  IN  ASSIGN  STATEMENT 

The  keyword  'TO'  does  not  follow  the  label   specification 
ASSIGN   statement.    Check   for   a   typoqr aph i ca 1   error 
statement . 


1  n 
i  n 


an 
the 


MISSING  VALUE  FOR  KEYWORD  IN  OPEN  OR  CLOSE  STATEMENT 

A  keyword  requiring   a   value   ..as   specified   without 
Correct  the  syntax  of  the  statement. 


value. 


MISSING  VARIABLE 

A  variable  was  expected,  but  not  found.   For  example,  ASSIGN   inn 
'  1  is  illegal;   a  variable  name  should  follow  the  'TO'  but  does 
Verify  that  the  reference  following  'TO*  is  a  valid  integer 
variable  name. 


TO 
not . 


MISSING  VARIABLE  OR  CONSTANT 

An  operand  (variable  or  constant)  was  expected  but  a  delimiter 
(such  as  a  comma  or  parenthesis)  was  found.  For  example,  WRITE() 
is  illegal;  a  unit  number  should  follow  the  open  parenthesis, 
but  a  delimiter  (close  parenthesis)  is  encountered  instead. 
Correct  the  format  of  the  statement  in  error. 


MODE  OF  EXPRESSION  MUST  BE  INTEGER 

An  integer  variable  or  expression  was  required,  but  not  found. 
For  example,  the  initial,  terminal,  and  increment  parameters  of  a 
DO  statement  must  be  integer  variables  or  expressions.  Supply  a 
variable  or  expression  of  integer  type. 

MODES  OF  VARIABLE  ****  AND  DATA  ITEM  DIFFER 

The  data  type  of  each  variable  and  its  associated  data  list  item 
must  agree  in  a  DATA  statement.  Correct  the  format  of  the  items 
in  the  DATA  statement. 


MULTIPLE  DECLARATION  FOR  VARIABLE  **** 

A  variable  appeared   in   more   than 
statement  or  dimensioning  statement, 
ignored.   Correct  the  program  logic. 


one   data   type   declaration 
Subsequent  declarations  are 


MULTIPLE  DECLARATION  OF  OPEN  OR  CLOSE  KEYWORD 

A  keyword  has  been  specified  more  than  once  in  a  single  open  or 
CLOSE  statement.  Remove  the  incorrect  or  duplicate  reference  to 
the  keyword. 


OPEN  OR  CLOSE  KEYWORD  VALUE  MUST  BE  OUOTED  STRING 

A  keyword  that   requires   a   quoted-st r i ng   value   was   given   an 
expression  value.   Correct  the  syntax  of  the  statement. 


OPEN  OR  CLOSE  STATEMENT  REQUIRES  UNIT=  SPECIFIER 

No  UNIT=  specification  is  present  in  the  OPEN  or  CLOSE 
in   question   to   select  the  desired  logical  unit.   Add 
specification  to  the  statement. 


statement 
the  UNTT= 


PARENTHESES  NESTED  TOO  DEEPLY 

Group  repeats  in  a  FORMAT  statement  have  been  nested  too 
Limit  group  repeats  to  eight  levels  of  nesting. 


deepl y , 


C-9 


FORTRAN  IV  ERROR  DIAGNOSTICS 


PROGRAM  OR  BLOCK  DATA  STATRMENT  MUST  BE    FIRST 

A  proqram  nane  or  block  data  name  statement  was  used,  hut  was  not 
the  first  statement  found.  Correct  the  proqram  so  that  the 
statement  is  first. 


P-SCALE  FACTOR  NOT  IN  RANGE  -127  TO  +127 

P-scale  factors  were  not  in  the  ranqe  -127 
statement  in  error. 


to  +127 


Correct   the 


REFERENCE  TO  INCORRECT  TYPE  OF  LABEL  **** 

A  statemsnt  label  reference  that  should  be  a  label  on  a  FORMAT 
statement  is  not  such  a  label,  or  a  statement  l^bel  reference 
that  should  be  a  label  on  an  executable  statement  is  not  such  a 
label.   Correct  the  program  logic. 

REFERENCE  TO  UNDEFINED  STATEMENT  LABEL 

A  reference  has  been  made  to  a  statement  label  that  has  not  been 
defined  anywhere  in  the  proqram  unit.   Correct  the  program  logic. 


STATEMENT  MUST  BE  UNLABELED 

A  DATA,  SUBROUTINE,  FUNCTION,  BLOCK   DATA,   arithmetic 
function    definition,   or   declarative   statement   was 
Correct  the  statement  in  error. 


statement 
labeled . 


STATEMENT  TOO  COMPLEX 

An  arithmetic  statement  function  has  more  than  ten  dummy 
arguments  or  the  statement  is  too  long  to  compile.  Verify  that 
the  number  of  dummy  arguments  in  an  arithmetic  statement  does  not 
exceed  ten;  break  long  statements  into  two  or  more  smaller 
statements . 


SUBROUTINE  OR  FUNCTION  STATEMENT  MUST  BE  FIRST 

A  SUBROUTINE,  FUNCTION  or  BLOCK  DATA  statement  is  not  the  first 
statement  in  a  program  unit.  Ensure  that,  if  present,  these 
statements  appear  first  in  a  program  unit. 


SUBSCRIPT  OF  ARRAY  ****  NOT  IN  RANGE 

Array  subscripts  that  are  constants  or  constant  expressions  ar 
found  to  be  outside  the  bounds  of  the  array's  dimensions.  Th 
operation  in  question  is  undefined.   Correct  the  program. 


a  re 
e 


SYNTAX  ERROR 

The  general  form  of  the  statement  was  not  formatted  correctly. 
Check  the  general  format  of  the  statement  in  error  and  correct 
the  program. 


SYNTAX  ERROR  IN  INTEGER  OR  FLOATING  CONSTANT 

An  integer  or  floating  constant  h<^s  been  incorrectly  formed.  For 
example,  1.23.4  is  an  illegal  floating  constant  because  it 
contains  two  decimal  points.  Correct  the  format  of  the  integer 
or  floating  constant  in  question. 

SYNTAX  ERROR  IN  LABEL  LIST 

The  list  of  labels  for  an  assigned  or  computed  GOTO  statement  is 
improperly  formatted,  or  contains  a  reference  to  an  entity  that 
is  not  the  label  on  an  executable  statement.  Correct  the  format 
of  the  list. 


TARGET  MUST  BE  ARRAY 

An  ENCODE/DECODE  statement  contains  a  reference  to  an  array 
element  that  has  not  previously  been  dimensioned.  Correct  the 
program  logic. 
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UNARY  OPERATOR  HAS  TOO  MANY  OPERANDS 

Two  operands  have  been  specified  for  an  operator  (such  as  .mot.) 
that  accepts  only  one  operand.  Check  for  a  typoqraph ical  error 
in  the  statement. 


UNLABELED  FORMAT  STATEMENT 

A  FORMAT  statement  was  not  labeled.   Correct 
in  error  by  assigning  it  the  proper  label. 


the  FORMAT  statement 


UNRECOGNIZED  KEYWORD  IN  OPEN  OR  CLOSE  STATEMENT 

The  OPEN  or  CLOSE  statement  in  question  contains  a  keyword  that 
is  not  recognized  by  the  compiler.  Check  for  a  misspelling  or 
typographical  error  in  the  keyworcis  used  in  the  statement. 

UNRECOGNIZED  VALUE  FOR  OPEN  OR  CLOSE  KEYW-^RD 

A  keyword  that  requires  a  quoted-st r ing  value  was  specified  with 
an  unrecognized  value  string.  For  example,  PTSPOSE  =  'SURF'. 
Specify  a  valid  value  for  the  keyword. 

USAGE  OF  VARIABLE  ****  INVALID 

An  attempt  was  made  to  EXTERNAL  a  common  variable,  an  array 
variable,  or  a  dummy  argument.  Or  an  attempt  was  made  to  place 
in  COMMON  a  n  immy  argument  or  external  name.  Correct  the  program 
logic. 


VALUE  OF  CONSTANT  NOT  IN  RANGE 

An  integer  constant  in  the  designated  source  proaran 
the  maximum  unsigned  value  ("^5535).  This  error  is 
if  an  invalid  dimension  is  specified  for  an  array 
exponent  of  a  floating-point  constant  is  too  large, 
statement  in  error. 


1 i  ne  exceeds 

also  printed 

or   if   the 

Correct  the 


VARIABLE  ****  INVALID  IN  ADJUSTABLE  DIMENSION 

A  variable  used  as  an  adjustable  dimension  was  not  an  integer 
dummy  argument  in  the  subprogram  unit.   Correct  the  program. 

WRONG  NUMBER  OF  OPERANDS  FOR  BINARY  OPERATOR 

An  operator  that  requires  two  operands  was  specified  with  only 
one  operand.  Example:  I=*J.  Check  for  a  typographical  error  in 
the  statement. 


WRONG  NUMBER  OF  SUBSCRIPTS  FOR  ARRAY  **** 

An  array  reference  does  not  have  the  same  number  of  subscripts  as 
specified  when  the  array  was  dimensioned.  Correct  the  statement 
in  error . 
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C.1.3   Warning  Diagnostics 

Warning  diagnostics  report  conditions  that  are  not  true  error 
conditions,  but  may  be  potentially  dangerous  at  execution  time,  or 
present  compatibility  problems  with  FORTRAN  compilers  running  on  other 
DEC  Operating  Systems.  The  warning  diagnostics  are  normally  enabled, 
but  may  be  suppressed  by  use  of  the  /NOWR  compiler  switch.  The  form 
and  placement  of  the  warning  diagnostics  are  the  same  as  those  for  the 
secondary  phase  error  diagnostics  (s,ee  Section  C.l.?),  except  that  the 
line  number  reference  is  replaced  with  'fWARNINGl'.  A  listing  of  the 
warning  diagnostics  follows: 


LOOP  ENTRY  AT  LABEL  **** 

A  transfer  of  control  occurs  from  outside  the  containing  DO  loop 
to  the  label  indicated.  This  may  indicate  a  programming  error 
(if  the  loop  does  not  have  extended  range). 

NON-STANDARD  STATEMENT  ORDERING 

Although  the  FORTRAN  IV  compiler  has  less  restrictive  statement 
ordering   requirements   than   those   outlined  in  Chapter  7  of  the 

PDP-11  FORTRAN  Language  Reference Manua 1  ,   nonadherence   to   the 

stricter  requirements  may  cause  error  conditions  on  other  FORTRAN 
compilers.   See  Chapter  3  of  this  document. 

POSSIBLE  MODIFICATION  OF  **** 

The  indicated  variable,  which  is  used  as  a  control  parameter  of  a 
DO  loop,  may  be  modified  within  the  body  of  that  loop. 

VARIABLE  ****  IS  NOT  WORD  ALIGNED 

Placing  a  non-LOGICAL* 1  variable  or  array  after  a  LOGICAL*! 
variable  or  array  in  COMMON,  or  equ i va lenci ng  non- LOG ICAL* 1 
variables  or  arrays,  to  LOGICAL*!  variables  or  arrays  can  cause 
this  condition.  An  attempt  to  reference  the  variable  at  run  time 
will  cause  an  error  condition. 


VARIABLE  ****  NAME  EXCEEDS  SIX  CHARACTERS 

A  variable  name  of  more  than  six  characters  was  specified.  The 
first  six  characters  were  used  as  the  true  variable  name.  Ot^er 
FORTRAN  compilers  may  treat  this  as  an  error  condition.  See 
Section  1.2    of  this  document. 


C.l. 4   Fatal  Compiler  Error  Diagnostics 

The  fatal  compiler  error  diagnostics  are  listed  below.  These 
diagnostics,  that  are  sent  directly  to  the  initiating  terminal,  report 
command  string  errors,  hardware  error  conditions,  conditions  that  may 
require  rewriting  of  the  source  program,  and  compiler  errors  which  are 
the  result  of  software  errors. 

FOR  —  BAD  SWITCH 

An  illegal  switch  was  specified  in  the  compiier   command   string. 
Refer  to  Section  1.2.2  for  compiler  option  information. 

FOR  --  BAD  SWITCH  VALUE 

An  illegal  value  was  specified   for   a   compiler   command   string 
switch.   Refer  to  Section  1.2.2  for  compiler  option  information. 

FOR  —  CODE  GENERATION  STACK  OVERFLOW 

A   statement   is   too   complex   to   process.    Simplify    complex 
statements. 
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FOR  —  COMMAND  ERROR 

An  error  occurred  during  the  processing  of   an 
file.   Verify  that  the  command  file  exists  and 


indirect   command 
i  s  correct , 


FOR  --  COMPILER  FATAL  ERROR,  ANALYSIS  FOLLOWS 

Some  type  of  unexpected  error  was  encountered  by  FORTRAN.  Please 
send  the  console  listing  with  a  copy  of  your  program  (on  some 
machine-readable  medium)  with  a  Software  Performance  Report  (see 
Append  i  x  G)  . 


FOR  —  CONSTANT  SUBSCRIPT  STACK  OVERFLOW 

Too  many  constant  subscripts  have  been  employed  in 
Simplify  the  statement. 


statement . 


FOR  --  DYNAMIC  MEMORY  OVERFLOW 

The  program  unit  currently  being  compiled  cannot  be  processed   in 

the  available  memory  space.  Break  the  program  unit  in  question 
into  smaller  subprograms,  or  recompile  on  a  larger   machine.    If 

more    memory    is    available,    the    compiler  can   be   either 

re-task-built  with  a  larger  EXTTSK ,  or  installed  with  a  larner 
INC  =  value. 

FOR  --  ERROR  READING  SOURCE  FILE 

An  unrecoverable  error  occurred  while  the  compiler  was  attemptiin; 
to  read  a  source  program  input  file.  Correct  the  hardware 
problem  and  recompile. 

FOR  —  ERROR  WRITING  LISTING  FILE 

An  unrecoverable  error  occurred  while  the  compiler  was  attempting 
to  write  the  listing  output  file.  Make  sure  that  the  output 
device  is  wr i te-enabled ,  and  that  sufficient  free  space  exists  on 
the  device  for  the  output  file.   Recompile  the  proqran. 

FOR  --  ERROR  WRITING  OBJECT  FILE 

An  unrecoverable  error  occurred  while  the  compiler  was  attempting 
to  write  the  object  program  output  file.  Make  sure  that  the 
output  device  is  wr i te-enabled ,  and  that  sufficient  free  space 
exists  on  the  device  for  the  output  file.   Recompile  the  program. 


FOR  —  OPEN  FAILED  FOR  FILE 

An  input  or  )utput  file  was 
file  and  device  name  exist. 


not  found.   Verify  that  the  specified 


FOR  --  OPTIMIZER  STACK  OVERFLOW 

A  statement  is  too  complex  to  process,  or  too  many  common 
subexpressions  occurred  in  one  basic  block  of  the  source  program. 
Simplify  complex  statements. 

FOR  —  SUBEXPRESSIONS  STACK  OVERFLOW 

An  attempt  was  made  to  compile  a  statement  that  could  overflow 
the  run-time  stack  at  execution  time.  Simplify  complex 
statements  . 


FOR  —  SYNTAX  ERROR 

The  command  string  presented   to   the 
format.   Correct  the  command  string. 


compiler   was   illeqal 


1  n 


FOR  --  TOO  MANY  INPUT  FILES 

Only  one  input  file  is  allowed  in  a  command  string;  only  one 
source  file  can  be  compiled  at  a  time.  Refer  to  Section  1.2  for 
more  information. 
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FOR  —  TOO  MANY  OUTPUT  FILES 

No  more  than  two  output  files  (object  file  and  listing  file)  may 
be  specified  on  a  command  strinq.  See  Section  1.2  for  more 
inf orma  t  ion . 

FOR  --  WILD  CARD  NOT  ALLOWED 

The  wild  card  '*'  is  not  valid  for  a  file  name,  type,  or  version. 
Consult  Section  1.1.2  for  correct  file  specifications. 


C.2   OBJECT-TIME  SYSTEM  ERROR  DIAGNOSTICS 


C.2.1   Error  Processing  Algorithm 


The  Object-Time  System  detects  many  input/output,  arithmetic,  invalid 
argument,  and  other  kinds  of  errors,  and  reports  them  on  the  user's 
terminal  via  logical  device  TI:.  The  action  taken  for  each  error  is 
determined  by  an  error  control  table  within  the  OTS .  (This  table  can 
be  modified  during  program  execution  hy  means  of  the  FRRSFT 
subroutine.   See  Section  &.^.) 


Three  system  subroutines  are  provided  to  obtain  information  on  the 
occurrence  of  specific  errors,  and  to  specify  the  action  to  be  taken 
when  an    error  is  detected  by  the  OTS . 


The  ERRSNS  subroutine  obtains  intormation  about  the  most  recent  error 
that  has  occurred  during  program  execution.  It  provides  detailed 
information  on  errors  detected  by  File  Control  !3ervices  (PCS). 


The  ERRTST  subroutine  tests  for  the  occurrence 
during  program  execution. 


of 


spec  i  f ic   error 


The  ERRSET  subroutine  modifies  the  action  to  be  taken  when  an  error  is 
detected  by  the  OTS.  In  many  cases,  the  type  of  continuation  action 
may  be  changed  from  that  specified  in  the  error  control  table.  (See 
Table  C-1 .) 


ERRSNS,  ERRTST,  and  ERRSET  are  described  in  detail  in  Appendix  R.  OTS 
error  codes  and  the  format  of  the  OTS  diagnostic  mes5;ages,d  are  shown 
in  Section  C.2. 3.2. 


Error  processing  for  each  error   is 
Significant  bits  are  as  follows: 


control  led   by 


control   byte 


Cont i  nuat  ion  Bit 


If  this  bit  is  not  set,  the  task  will 
exit  as  a  result  of  this  error.  If  set, 
the  task  will  continue  provided  certain 
other  conditions  are  met. 


Count  Bit 


If  set,  this  error  is  counter]  against 
the  task  error  count  limit.  If  that 
limit  is  exceeded,  the  task  will  exit. 
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Continuation  Type  Bit 


Two  types   of   continuation   ciction   are 
possible : 


1.  If  set,  return  to  routine  th^t 
reported  the  error  to  take 
appropriate  recovery  action  and 
proceed,  or 

2.  if  not  set,  take  an  RRR-  transfer  in 
an  I/O  statement.  If  an  FRR= 
transfer  is  specified  for  the  error 
and  none  was  included  in  the 
input/output  statement,  the  task 
wi 1 1  exi  t . 

The  above  three  conditions  must  all  be  satisfied  for  the  task  to 
continue. 

Log  Bit  If  the  task  continues,  then  the  loq   hit 

is  tested.  If  the  hit  is  set,  an  error 
messaqe  is  produced  before  cont  i  nu  i  n<) ; 
otherwise,  the  task  continues  without 
producing  a  messaqe. 

If  any  of  the  above  conditions  is  not  satisfied,  the  task  will  exit 
and  an  error  messaqe  will  always  be  produced.  In  this  case,  the 
additional  text  "FXITING  DUE  TO"  is  included  in  the  error  messaqe  so 
that  it  is  clear  why  a  task  is  abnormally  terminating. 

Two  additional  control  bits  are  used  to  specify  the  acceptability  of 
ERRSET  arguments. 


Return  permitted  bit 
ERR=  permitted  bit 


If  set,  then  the  continuation  type  bit 
may  be  set  by  EJRRSET  to  specify  return. 

If  set,  then  the  continuation  type  bit 
may  be  set  by  RRRSFT  to  specify  that  an 
ERR=  transfer  is  to  occur. 


These  two  bits  are  used  by  ERRSET  to   check   the   validity   of  ERRSFT 

arguments.    At   least   one   of   these  must  he  set  in  order  to  set  the 

continuation  bit.  The  continuation  type  argument  is  checked  against 
these  bits  for  acceptability. 

All  four  combinations  of  these  two  bits  occur  in  the  OTS,  although 
most  errors  are  in  one  of  two  groups. 

1.  I/O  errors  generally  permit  ERR=  continuation  type  but  not 
returncontinuation. 

2.  Most  other  errors  permit  return  continuation  but  no  FRR^ 
transfer  continuation  (even  if  they  occur  durim  I/O 
statement  processing). 

Notable  exceptions  are  the  synchronous  system  trap  errors  (numbers  1 
through  10)  and  recursive  input/output  error  (number  40),  which  always 
results  in  task  termination,  and  the  input  and  output  formatted 
conversion  errors  (numbers  fi^  and  »^4),  which  allow  both  types  of 
cont  i  nuat  ion . 

The  initial  setting  of  the  error  control  bits  is  shown,  together  with 
error  messages,  in  Section  C.2.3. 
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C.2.2   Object  Time  System  Error  Message  Format 


An   OTS   error   message   consists   of   several   lines   of   informati 


on 


formatted 


as 


f ol lows, 


Fixed   parts   of   the   message  are  shown  ii 


capital  letters  and  variable  parts  in  lowercase  letters.) 


EXITING  due;  to  ERROR  number 


tsknan 

tex^ 

AT  rc  =  address 

FCS:   f.err  f.errl  til 
IN    xxxxxx  AT  yyy 
FROM  xxxxxx  AT  yyy 

•  •  • 

FROM  .MAIN).   AT  yyy 


ename  unit 


The  variable  parts  of  the  message  in 


tsknam 


the  name  of  the  task  in  which  the  error  occurred 


number 


the  error  number 


text 


a  1-line  de; 


cription  of  the  error 


If  the  OTS  error  resulted  from  one  of  the  synchronous  system  traps, 
then  the  program  counter  will  be  shown  in  the  line  "AT  PC  =" .  This 
line  is  only  produced  for  errors  numbered  S  through  1^. 


If  the  OTS  error  resulted  fr 


Services,  the  line  beginning  "FCS 


om  an  error  reported  to  it  by  File  Control 


will  be  i  ncluded 


:onsult  the  I/O 


Operations  Reference  Manual  for  a  description  of  the  FCS  error  codes 


f.err 


f.errl 


the  value  of  the  F.ERR  field   of   the   Fil 
Block  (FDB) . 


e   Pescr  i  ptor 


the  value 


or 


the 


F:RR+1  field  of  the  FDR, 


filename   the  name  of  the  file  (not  includi 


ng  type  or  version) 


unit 


the  logical  unit  on  which  this  error  occurred 


Next  follows  a  traceback  of  the  subprogram  calling  nest  at  the  time  of 
the  error.  Each  line  represents  one  level  of  subprogram  call  and 
gives  the  following  identifications: 


xxxxxx 


the  name  of  the  subprogram, 


The  name  of  the 


main  program  is  shown   a; 


MAIN, 


The 


name   of   a   subprogram  is  the  same  as  the  name  used  i 


the   SUBROUTINE   or   FUNCTION   statement, 


Ar  i  thmet  ic 


statement   functions,  OTS  system  routines,  and  routines 


written  in  assembly  language  will  not  be  sh 
traceback . 


own 


i  n   the 


yyy 


the  internal  sequence  number  of  the  subprogram  at  which 
the    error,   call   statement,   or   function   reference 


occur  red 


A  question  mark 


or 


blank 


instead 


number 


indicates   that   the  program  unit  was  compiled  with  the 


/NOSN 


jmpiler   switch    (suppress 


sequence 


number 


accounting)  in  effect,  and  hence  the  line  n,  ".ber  is  not 
known  for  that  ptogram  unit. 
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C.2.2.1  Short  Message  File  -  In  order  to  save  space,  r\  short  messaqe 
file  may  be  included  that  prints  only  the  error  number.  This  may  be 
used  by  specifying  the  module  SSHORT  at  task  build  time.   For  example: 

MCfOTKB 
TKB>MAIN=[l,l]SySLIB/LB:$SHOPT,MAIN 


C.2.3   Object  Time  System  Error  Codes 


C.2.  .1  Initial  Control  Bit  Settings  -  The  followinq  table  shows  ♦ he 
initial  settings  of  the  significant  bits  in  the  error  control  byte,  as 
described  in  Section  C.2.1. 
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Table  C-1 
Rrror  Control  Bit  Settings 


ERROR 
NUMBER 


3 
4 

S 

6 

7 

S 

9 

10 

U 

12 

13 

14 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

37 
38 
39 
40 
41 
42 
43 
44 
A') 
4ti 

60 
61 
62 
63 
64 
65 
66 
67 

69 

70 
71 
72 
73 
74 
75 

80 
81 
82 
83 
84 
85 
86 

90 
91 

95 
96 
97 

120 
121 

111 

112 


CONTINUE 


HO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
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TEXT. . . 


INVALID  ERROR  CALL 

TASK  INITIALIZATION  FAILURE 

DDL)  ADURESS  TRAC  ISSTO) 

SEilMENT  FAULT  JSSTU 

T-HIT  OR  BPT  TRAP  (SST2I 

lOT  TRAP  (SST  > 

KESKHVED  INSTRUCTION  TRAP... 

NON-RSX  EMT  TRAP  ISST5I 

TRAP  INSTRUCTION  TRAP  ISSTb) 

Pt)P-ll'40  FIS  TRAP  (SST7I 

FPP  HARDWARE  FAULT 

FPP  ILLEGAL  OPCt)OE  TRAP 

FPP  UNDEFINED  VARIABLE  TRAP 

FPP  MAINTENANCE  TRAP 

REWIND  ERROR 

DEFINEFILE  ALREADY  HONE 

RECORD  T(.>0  I.ONO 

BACKSPACE    tRKOR 

END-OF-Fll.l:    DURINC;    READ 

INVALID  RECORD  NUMBER 

DEFINEFILi:  NOT  D'.JNE 

MORE  THAN  ONE  RECORD 

CLOSE  ERROR 

NO  SUCH  FILE 

OPEN  FAILURE 

MIXED  ACCESS  MODES 

INVALID  I.OCICAL  UNIT  NUMBER 

FNDFILE  TO  DIRECT  ACCESS  FILE 

UNIT  ALRFJVDY  OPEN 

INCONSISTENT  RECfiRD  I.ENOTH 

ERROR  DURING  WRITE 

ERROR  DURING  HEAD 

RECURSIVE  I 'O  ATTEMPT 

NO  FCS  BUFFER  ROOM 

DEVICE  HANDLER  NOT  RESIDENT 

FILE  NAME  SPECIFICATION  ERROR  ' 

DIRECT  ACCESS  RECORD  SIZE... 

UNSUPPORTED  OPEN  KEYWORD 

INCONSISTENT  OPEN  STATEMENT... 

INFINITE  FORMAT  LOOP 
FORMAT/VAR I  ABLE-TYPE  HIS.MATCH 
SYNTAX  ERROR  IN  F'JRMAT 
OUTPUT  CONVERSION  ERROR 
INPUT  CON\'ERSION  ERROR 
FOR.MAT  TOO  BIG  FOR  'FMTBUF' 
RECORD  TOO  BIG 
RECORD  TOO  SMALL  FOR  I.'O  LIST 

LIST  DIRECTED  I/O  SYNTAX  ERROR 

INTEGER  OVERFLOW 

:  TEGER  ZERO  DIVIDE 

F  DATING  OVERFLOW 

Fi  lATING  ZERO  DIVIDE 

FI  BATING  UNDERFLOW 

FIP  FLOATING  TO  INTEGER... 

WRONG  NUMBER  OF  ARGUMENTS 
INVALID  ARGUMENT 
UNDEFINED  EXPONENTIATION 
LOGARITHM  OF  NEGATIVE  VALUE 
SOUARE  ROOT  OF  NEGATIVE  VALUE 
INVALID  ARGUMENT  TO  LIBRARY... 
INVALID  ERROR  NUMBER 

COMPILER  DETECTED  ERROR 
COMPUTED  GOTO  OUT  OF  RAN<;E 

INCOMPATIBLE  FORTRAN  OB.IECT... 
MISSING  FORMAT  CONVERSION... 
FTN  FOKTRAN  ERROR  CALL 

DIRECTIVE:  MISSING  ARGUMENTS 
DIRECTIVE:  INVALID  EVENT  FLAG.. 

VIRTUAL  INITIALIZrJ  FAILURE 
VIRTUAL  ARRAY  MAPPING  ERROR 


1.  This  applies  to  ASSIGN  only; 
YES,  ERR=,  YES,  YES,  NO. 


for  QPFN,  the  error  bits   are 


YES, 


C-18 


FORTRAN  IV  ERROR  DIAGNOSTICS 


C.2.3.2.  Error  Messages 

Group  0  -  Severe  Errors 

These  messages  result  from  severe  error  conditions  for  which  no  error 
recovery  is  possible.  Consult  the  appropriate  executive  reference 
manual  for  details  of  what  error  conditions  will  cause  traps  to  the 
System  Synchronous  Trap  Table  entries  cited  below. 


INVALID  ERROR  CALL 

A  TRAP  instruction  has  been  executed  whose  low  byte  is 
within  the  range  used  by  the  OTR  for  error  reporting  (see 
Section  C.2.4)  but  for  which  no  error  condition  is  defined. 
Correct  the  program  logic. 


TASK  INITIALIZATION  FAILURE 

Task  start  up  has  failed 


for  one  of  the  following  reasons 


1. 


2. 


3. 


The  directive  co  initialize  synchronous  system  trap 
handling  (SVTK$)  has  returned  an  error  indication. 

The  Executive  directive  to  enable  the  FPP  asynchronous 
trap  (SFPAS)  has  returned  an  error  indication.  This  is 
usually  due  to  using  the  FPP  version  of  the  OTS  on  an 
operating  system  that  does  not  support  the  FP-ll. 


The  File  Control  Services  initialization 
has  returned  an  error  indication. 


call   (FINITS) 


ODD  ADDRESS  TRAP  (SST  0) 

An  odd  address  was  detected  durinn  execution.   This  trap   is 
useful  in  determining  which  instruction  generated  the  error. 


SEGMENT  FAULT  (SST  1) 

This  memory  protect   violation   is   most   likely   due 
subscript  value  out  of  range  on  an  array  reference. 


to 


the 


T-BIT  OR  BPT  TRAP  (SST  2) 

A  trap  has  occurred  because  the  trace  bit   was   set   in 
processor   status   word   or   a  PPT  instruction  was  executed. 
These  conditions  should  not  occur. 


lOT  TRAP  (SST  3) 

A  trap   has   occurred   as   a   result   of   executing   an   lOT 
instruction.   This  condition  should  not  occur. 


RESERVED  INSTRUCTION  (SST  4) 

The  program  has  attempted  to  execute  an  illegal  instruction. 
This  may  be  caused  by  task  building  with  the  wrong  FORTRAN 
library  for  the  given  hardware  configuration. 


NON-RSX  EMT  (SST  S) 

The  program  has  executed  an  EMT 
is  not  in  the  range  used  by  the 


instruction  whose 
execut  ive . 


low   byte 


TRAP  INSTRUCTION  TRAP  (SST  ^) 

A  trap  instruction  has  been  executed  whose  low  byte  is 
outside  the  range  used  for  OTS  error  messages  (see  C.?.^ 
below) . 


10    PDPll/40  FIS  TRAP  (SST  7) 

A  module  using  FIS  was  linked  with  a  non-FIS  FORTRAN  library 
(RSX-llM  only).  This  message  R,ay  also  result  when  an 
operating  system  generated  for  an  11/40  is  used  on  another 
system  (executing  FPP  instructions). 
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M 


U 


FPP  HARDWARE  FAULT 

The  FPP  Floatinq  Exception  Code  (FEC)  reqister  contained  the 
value  n  following  an  FPP  interrupt.  This  is  probably  a 
hardware  malfunction. 


FPP  ILLEGAL  OPCODE  TRAP 

The  FPP  has  detected  an  illegal  floati 


nq-point  instruction, 


13    FPP  UNDEFINED  VARIABLE  TRAP 

The  FPP  loaded  an  illegal  value  (-0.0).    This   trap   should 
not   occur   since   the   OTS   initialization  routine  does  not 


enable  this  trap  conditi 


on 


never  be  produced  by  any  FORTRAN  operatior 

14    FPP  MAINTENANCE  MODE  TRAP 

The  FPP  has  interrupted  with  a  Floati 


A  negative   zero   value   should 


register   value   of  M  (octal 
ma  1  f unct  ion . 


ng  Point  Exception  Code 
This  is  probably  a  hardware 


Group  1  -  General  Input/Output  Errors 


These  messages  result  fron  errors  related  to  the  fil 


20 


e  system, 


REWIND  ERROR 


An  error  condition  was  detected  by   FCS   durinq   the 


operation  used  to  position  to  the  beqinni 


n q  of  a    fill 


POINT 


21 


22 


DEFINEFILE  ALREADY  DONE 

A  second  DEFINEFILE  statement  was  attempted  on  a  unit.    The 


second   DEFINEFILE   is   ignored 


chanqe   a   DEFINEFILE 


specification,  a  CLOSE  operation  must   be   performed   before 
the  second  DEFINEFILE. 


RECORD  TOO  LONG 

A  record  has  been  read  that  is  too  larqe   to   fit   int( 


buffer  specified  by  the  MAXRUF  TKB  opti 
isina  a  larger  MAXBUF  specification 


on 


the 
Rebuild  the  task 


23    BACKSPACE  ERROR 

One  of  the  following  et.ors  has  occurred 


BACKSPACE  was  attempted  on  a  file  opened   for   appending 
(see  Section  2.5.'=;). 

FCS  has  detected  an  error  co.  iition   durinq   the   .POINT 
operation  used  to  rewind  the  file. 


FCS   has   detected   an   error 
forward  to  the  desired  record 


cond  i  t  ion   wh  i le 


read  i  nq 


24  END-OF-FILE  DURING  READ 

Either  an  end-file  record  produced  by  the  ENDFI LE  statement 
or  the  FCS  end-of-file  condition  has  been  encountered  durinq 
a  READ  statement  and  no  KND=  transfer  specification  was 
provided . 

25  INVALID  RECORD  NUMBER 

A  direct-access  READ,  WRITE,  or  FIND  statement  has  specified 
a  record  number  outside  the  range  from  one  to  the  value 
specified  in  a  DEFINEFILE  statement. 


2fi 


DEFINEFILE  NOT  DONE 


A  direct  access  READ,  WRITE,  or  FIND  operation  was  attempted 
before  a  DEFINEFILE  was  performed. 
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27 


28 


MORE  THAN  ONE  RECORD 

An  attempt  was  made  to  read  or   write   more   than   a   sinqle 
record  in  an  ENCODE  or  DECODE  statement. 

CLOSE  ERROR 

An  error  condition  has  been  detected  by  FCS  durinq   a   CLOSE 
Ofjeration.   (Refer  to  Section  C.2.2.) 


29 


NO  SUCH  FILE 


A  file  with  the  specified  name  could  not  be  found  durinq 
OPEN  operation. 


an 


30 


OPEN  FAILURE 


FCS  has  detected  an  error  condition  durinc]  an  OPEN 
operation.  This  nessaqe  is  used  when  the  error  condition  is 
not  one  of  the  more  common  conditions  for  which  specific 
error  messaqes  are  provicjed.   (Refer  to  Section  r  .  ?  .  ?  . ) 


31  MIXED  ACCESS  MODES  , 

An  attempt  was  made  to  use  both  formatted  and  unformatted 
operations,  or  both  sequential  and  direct  access  operations, 
on  the  same  unit. 

32  INVALID  LOGICAL  UNIT  NUMBER 

A  logical  unit  number  was  used  that  is  outside  the  ranqe 
specified  by  the  TKB  UNITS=  option. 


33    ENDFILE  TO  DIRECT  ACCESS  FILE 

An  end-file  record  mav  not  be  written   to 
file. 


d  i  rect 


access 


34    UNIT  ALREADY  OPEN 

A  DEFINEFILE  statement,  CALL   ASSIGN 


or 


CALL   FDBSET   was 


attempted   that   specified  a  loqical  unit  already  opened  for 
input/output . 


37    INCONSISTENT  RECORD  LENGTH 

An  existing  direct  access  file  has  been  opened  who' 


not 


the 


record 
same   as   specified   in  the 


length  attribute  is 
DEFINEFILE  statement, 
direct  access  file.   The  record  length  is  not  changed 


Ensure  that  the  file  was  created  as  a 


38    ERROR  DURING  WRITE 

FCS  has  detected  an  error  condition  while 
to  Sect  ion  C.2.2.) 


wr 1 t 1 nq 


(Refer 


39  ERROR  DURING  READ 

FCS  has  detected  an  error  condition  while  reading.  (Refer 
to  Section  C. 2 . ? . ) 

40  RECURSIVE  I/O  ATTEMPT 

An  expression  in  the  I/O  list  of  a  READ  or  WRI'^'E  statement 
has  caused  initiation  of  another  READ  or  WRITF.  operation. 
This  can  happen  if  a  FUNCTION  that  performs  I/O  is 
referenced  in  an  expression  in  a  READ  or  WRITE  statement  I/O 
list. 


4  1    NO  FCS  BUFFER  ROOM 

There  is  not  enough  free   core   left   in   the   File   Control 


Services   buffer   area 


to 


;et   up   required   I/O   buffers 


Rebuild  the  task  with  a  larger  ACTFIL  declaration  or   reduce 
the  level  of  mul t i -bu f f er i ng . 
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42 


43 


44 


45 


4fi 


DEVICE  HANDLER  NOT  RESIDENT 

Durinq  an  OPEN  operation,  the  file  name  specification 
included  a  device  for  which  no  handler  task  is  resident. 
Ensure  that  the  handler  is  resident  and  the  device  name  is 
lega  1 . 

FILE  NAME  SPECIFICATION  ERROR 

The  file  name  strinq  used  in  a  CALF.  ASSIGN  is  syntactically 
invalid,  contains  a  switch  specification,  references  an 
undefined  device  mnemonic,  or  is  otherwise  not  acceptable  to 
the  operating  system. 

RECORD  SIZE  TOO  BIG  FOF<  'MAXBUF' 

A  DEFINEFILE  statement  has  specified  a  record  size  that 
exceeds  the  size  available  in  the  record  buffer.  Rebuild 
the  task  usinq  a  larger  TKB  MAXHDF  specification, 

UNSUPPORTED  OPEN/CLOSE  KEYWORD  OR  OPTION 

A  keyword  or  keyword  value  in  the  OPEN  or  CLOSE  statement 
indicated  is  invalid  under  this  particular  operating  system. 


INCONSISTENT  OPEN/CLOSE  STATEMENT  SPECIFICATIONS 

The  specifications  in  an  OPEN  or  subsequent  CLOSE 
have  indicated  one  or  more  of  the  followinq: 


statement 


^ 


a  . 
b. 
c . 
d. 


A  'NEW  or  'SCRATCH' 
'APPEND'  tc  a  'NEW  , 
'SAVE'  or  'PRINJT'  of  a 
'DELETE'  or  'PRrsT'  of 


file  which  is  'READONLY' 
'SCRATCH',  or  'READONLY' 

'SCRATCH '  tile. 

a  'READONLY'  file. 


f  i  le 


Correct  the  OPEN  or  CLOSE  statement  to  remove  the  conflict. 
Group  2  -  Element  Transmission  ?:rrors 

These  messaqes  result  from  errors  related  to  transmittinq  data  between 
d  FORTRAN  proqram  and  an  internal  record. 


60 


61 


62 


INFINITE  FORMAT  LOOP 

The  format  associated  with  an  I/O  statement  that  includes  an 
I/O  list  has  no  field  descriptors  to  use  i  n  t  r  ap.s  f  er  r  i  nq 
those  variables. 

FORMAT/VARIABLE  -  TYPE  MISMATCH 

An  attempt  was  made  to  output  a  real  variable  with  an 
integer  field  descriptor  or  an  integer  variable  with  a  real 
field  descr  iptor . 


SYNTAX  ERROR  IN  FORMAT 

A  syntax  error  was  encountered  during  the  processinq   of 
object-time    format    specification.     Ensure    that 
construction  of  the  formal  specification  is  correct. 


an 
the 


63 


OUTPUT  CONVERSION  ERROR 

Durinq  a  formatted  output  operation,  the  value  of  a 
particular  number  could  not  be  output  in  the  specified  field 
length  without  loss  of  significant  digits.  The  field  is 
filled  with  asterisks  (*). 


64    INPUT  CONVERSION  ERROR 

During  a  formatted  input  operation,  an  illegal  character  was 
detected  in  an  input  field  or  the  input  value  overflowe<i  the 
range  representable  in  the  input  variable.  The  value  of  the 
variable  is  set  to  zero. 


"-2  2 


FORTRAN  IV  ERROR  DIAGNOSTICS 


i^f!"- 


h5    FORMAT  TOO  BIG  FOR  'FMTBUF' 

The  OTS  has  run  out  of  memory  while  scanninq  an  array  format 
that  was  qenerated  at  run  time.  The  default  internal  format 
buffer  lenqth  is  f^4  bytes.  This  may  he  increased  by  using 
the  FMTBUF  TKB  option  (see  Section  !.!.''.«). 

f>f>  RECORD  TOO  BIG  FO.^  'MAXBUF' 

During  an  output  operation,  a  record  was  specified  that  was 
longer  than  the  maximuri  record  lenqth.  The  default  maximum 
record  lenqth  is  132  (decimal)  bytes.  This  may  he  cnanqed 
by  use  of  the  MAXBUF  Task  Builder  option  (see  Section 
1.3.2.4)  . 


f>l  RECORD  TOO  SMALL  FOR  I/O  LIST 

A  READ  statement  has  attempted  to  input  more  data  than 
existed  in  the  record  being  read.  For  example,  the  I/O  list 
might  have  too  many  elements. 

^9  LIST  DIRECTED  I/O  SYNTAX  ERROR 

A  syntax  error  was  encountered  while  the  OTS  was  processing 
an  I/O  list.   Correct  the  progra-n  or  the  data. 


Group  3  -  Arithmetic  Errors 

These   messages   result   from   arithmetic    overflow    and 
cond  i  t  ions  . 


under  f low 


70 


71 


INTEGER  OVERFLOW 

During    an  integer     mult i pi • cat  ion  ,     division,     or 

exponentiation  operation,  the  value  cf  the  result  exceeded 
32767  in  magnitude.  Correct  the  program  logic.  K'ote: 
Integer  overflow  may  not  always  be  detected. 


INTEGER  ZERO  DIVIDE 

During  an  integer  mode  arithmetic  operation,  an  attempt 
made  to  divide  by  zero.   Correct  the  program  logic. 


was 


72    FLOATING  OVERFLOW 

During  an  arithmetic  operation,  a    real   value  has   exceeded 

the   largest   representable   real  number.   The  result  of  the 

operation  is  set  to  zero.   Correct  the  program  logic. 


73    FLOATING  ZERO  DIVIDE 

During  a  REAL  mode  arithmetic  operation,  an  attempt  was  made 
to  divide  by  zero.  The  result  of  the  operation  is  set  to 
zero.   Correct  the  program  logic. 


74  FLOATING  UNDERFLOW 

During  an  arithmetic  operation,  a  real  value  has  become  less 
than  the  smallest  representable  real  number,  and  has  been 
replaced  with  a  value  of  zero.   Correct  the  program  logic. 

75  FPP  FLOATING  TO  INTEGER  CONVERSION  OVEi<FLOW 

The  conversion  of  a  float  ng-point  value  to  an  integer  has 
resulted  in  a  value  that  overflows  the  range  representable 
by  an  integer.   The  resulting  value  is  unpredictable. 

Group  4  -  Argument  Errors 

These  messages  result  from   incorrect   calls   to   FORTRAN   IV-suppUed 
functions  or  subprograms. 
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FORTRAN  IV  ERROR  DIAGNOSTICS80    WROMG  NUMBER  OF  ARGUMRNTS 

An  improper  number  of  arguments  was  useci   in   a   call   to   a 
FORTRAN  library  function  or  system  subroutine. 

il    INVALID  ARGUMENT 

One  of  the  FORTRAN  library  functions  or   system   subroutines 
has  detected  an  invalid  arqument  value.   See  Appendix  H. 

82  UNDEFINED  EXPONENTIATION 

An  exponentiation  has  been  attempted  that  is   matheri  ,  c  ica  1  ly 
undefined,  for  example,  ().**Ci, 

83  LOGARITHM  OF  NEGATIVE  VALUE 

An  attempt  was  made  to  take   the   loqarithm   of   zero   or   a 
negative  number.   The  result  returned  is  zero. 

84  SQUf  RE  ROOT  OF  NEGATIVE  VALUE 

An  attemp-  was   made   to   evaluate   the   scjiare   root   of   a 
negative  value.   Zero  is  returned  as  the  result. 

85  INVALID  ARGUMENT  TO  LIBRARY  FUNCTION 

An  invalid  argument  was  used  in  a  call  to  a  FORTRAN   library 
function. 

86  INVALID  ERROR  NUMBER 

The  error  number  argument  to  one  of  the   subroutines   ERRSKf 
or  ERRTST  is  not  a  valid  error  number. 


Group  5  -  Miscellaneous  Errors 


tO'    COMPILER  DETECTED  ERROR 

An  attempt  is  made  to  link  and  run  an  object  file  with 
errors,  generated  by  the  FORTRAN  compiler,  reported  during 
compilation.  This  error  will  result  when  the  illegal  source 
statement  is  executed. 


tl    COMPUTED  GOTO  OUT  OF  RANGE 

The  integer  variable  or  expression  in  a  computed  GOTO 
statement  was  less  than  one  or  greater  than  the  number  of 
statement  label  references  in  the  list.  Control  is  passed 
to  the  next  executable  statement.  (See  the  PDP-1 1  FORTRAN 
Language  Reference  Manual .  ) 

100  DIRECTIVE:   MISSING  ARGUMENTS 

A  call  to  a  system  directive  subroutine  was  made  in  which 
one  or  more  of  the  arguments  required  for  directive 
execution  were  not  given. 

101  DIRECTIVE:   INVALID  EVENT  FLAG  NUMBER 

A  call  to  a  system  directive  subroutine  was  made  in  which 
the  argument  used  for  event  flag  specification  was  not  in 
the  valid  range  (1  to  ^^A)  . 

Ill   VIRTUAL  ARRAY  INITIALIZATION  FAILURE 

a)  The  total  storage  requirements  for  VIRTUAL  arrays  in  the 
program  exceed  the  currently  available  memory  on  the 
system . 

Reduce  VIRTUAL  storage  requirements   by   decreasing   the 
size  of  VIRTUAL  arrays  declared  in  the  program. 

b)  Memory  Management  Directive  support  is  attempted  without 
EIS  hardware. 
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c)  Nemory  Management  Directive  support  is  attempted  on  a 
system  that  does  not  support  Memory  Manaqenent 
Directives. 

112   VIRTUAL  ARRAY  MAPPING  ERROR 

An  attempt  has  been  made  to  reference  outside  the  bounds  of 
the  extended  memory  reqion  allocated  to  VIRTUAL  arrays  in 
this  program,  probably  caused  by  a  subscript  out  of  bounds. 

Verify  that  the  subscripts  of  the  VIRTUAL  arrays  referenced 
in  the  statement  indicated  are  within  the  derlared  bounds. 


C.2.4   Notes  On  OTS  Error  Processing  Implementation 


OTS  error  reports  are  initiated  by  execution  of  a  TRAP  instruction  in 
which  the  low  byte  of  the  instruction  contains  the  internal  error 
code.  Internal  error  codes  are  128  (decimal)  qreater  than  the 
externally  printed  error  code. 

The  first  128  (0  to  127)  trap  codes  may  be  ised  aS  follows;  TRAP 
instructions  transfer  control  to  the  OTS  erro  processor  by  means  of  a 
System  Synchronous  Trap  Table  located  in  the  OTS  impure  work  area. 
The  first  word  of  this  table  has  the  global  symbol  SSST.  Coding 
similar  to  the  following  might  be  used  to  intercept  control: 


INITIALIZATION 


INIT; 


SST6: 


MOV 

MOV 


.WORD 


$SST-H4  .  ,SST'=^ 
*INTCEP,$SST+14 


SAVK  OTS  TRAP  ADOR 
PUT  NFW  ADDR  IN  SST 
TABL'^' 


•  TRAP  HANDLER 
INTCEP:    CMP 


1$: 


i»12B.*2,«SP 


BHI 

1$ 

JMP 

•    •    • 

fasST*^ 

TST 

(SP)  + 

RTI 

Similar  techniques  could  be  used  to  intercept 
traps . 


LOW  BYTE  *2  OF  TRAP 

INSTRUCTION 

BRANCH  IF  USER  CODE 

GOTO  OTS 

USER  PROCESSING 

;DISCARD  EXTRA  WORD 
;EXIT  INTERRUPT 

the   other   synchronous 


OTS  error  messages  are  output  to  logical  device  TI:  by  means  of  a  LUM 
automatically  provided  by  the  Task  Builder  in  addition  to  those 
specified  by  the  UNITS  directive.  If  for  any  reason  the  010  directive 
used  to  write  the  error  lines  rece  ves  an  error  condition  return,  then 
an  immediate  exit  is  taken  to  the  Executive. 
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D.l   COMPATIBILITY  WITH  PDP-11  FORTRAN  V08.05 

FORTRAN  IV  (FOR)  is  a  new  impl enent ^t ion  of  FORTRAN  for  the  PDP-ll. 
It  has  been  designed  to  be  compatible  with  the  earlier  FORTRAN  (FT"J). 
However,  some  differences  exist  as  a  result  of: 

1.  Correcting  deficiencies  in  FTN  FORTR^N. 

2.  Language  specification  decisions  necessary  no  provide  an 
upward  compatible  line  cc  FORTRAN  systsms,  including  FORTRAN 
IV  and  FORTRAN  IV-PLUi  under  RT-II ,  RSTS/E,  RSX-llM, 
RSX-llM-PLUS,  and  IAS,  and  FORTRAN-10  on  the  DECsystem-in. 

3.  Providing  significant  extensions  to  FTN  FORTRAN  in  a  manner 
consistent  with  the  remainder  of  the  FORTRAN  language. 


This   section   summarizes   only   the   differences   that    may 
conversion  of  programs  from  FTN  to  FOR. 


a  f f ect 


D.1.1   Language  Differences 


1. 


2. 


3. 


4. 


5. 


6. 


FTN  permits  transfer  of  control  to  FORMAT  statements.  which 
execute  as  CONTINUE  statements.  FOR  does  not,  and  will  issue 
compile-time  error  messages. 

FTN  V07.14  provides  an  uncounted  form  for  Radix-5n  constants 
used  in  DATA  statements.  V08,n5  added  the  counted  form  and 
promised  de-support  of  the  uncounted  form.  Only  the  counted 
form  is  provided  in  FOR. 

FTN  logical  tests  treat  any  non-zero  bit  pattern  as  .TRUE, 
and  an  all-zero  bit  pattern  as  .FALSE..  For  LOGICAL  data 
types,  FOR  tests  only    the  lowest-order  byte  of  the  variable. 

The  syntax  if  the  IMPLICIT  statement  is  not  the  same  in  FOR 
and  FTN. 


FTN   provides   expressions   in   FORMAT    statements 
variable  format  expressions);   FOR  does  not. 


(called 


FTN  permits  Hollerith  strings  in  certain  expressions;  FOR 
does  not.  (In  FOR,  Hollerith  strings  are  allowed  as 
arguments  in  CALL  statements,  DATA  statements,  FORMAT 
statements,  and  in  STOP  and  PAUSE  statements  only.)  DATA 
statements  may  be  used  to  initialize  variables  with  strings 
to  achieve  the  same  result. 
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D.1.2   Object-Time  System  Differences 

1.  FTN  allows  both  formatted  and  unformatted  records  in  the  same 
file  by  means  of  the  MXDFUF  subroutine  call.  This  is  not 
supported  by  FOR. 

2.  The  FTM  service  subroutines  PDUMP  and  SKTPDU  are  not  provided 
in  FOR.  Similar  but  more  flexible  debuqqinq  output  may  be 
obtained  by  using  WRITE  statements  in  debuq  lines. 

3.  The  TRCLIB  library  for  statement-  level  execution  tracing  is 
not  available  in  FOR. 

4.  Some  FTN  service  subroutines  are  not  available,  bur.  their 
functions  are  provided  in  a  different  manner: 

FTN  FOR 

SETERR  ERRSET  subroutine 
TSTERR  ERRTST  subroutine 
APPEND  FDBSET  subroutine 


D.1.3   Implementation  Differences 

1.  FTN  performs  the  following  actions  when  openinq  a  unit  for 
direct  access  I/O:  first  check  if  a  file  already  exists;  if 
so,  use  it.   If  not,  create  a  new  file  for  use. 

In  FOR  the  type  of  open  dep-^nds  on  whether  a  READ  or  WRITE 
statement  is  causing  the  open  operation.  If  it  is  a  READ, 
then  the  file  must  already  exist,  or  an  error  will  result. 
If  it  is  a  WRITE,  then  a  new  file  is  created. 

The  action  sequence  described  above  for  FTN  may  be  obtained 
by  usinq  'UNKNOWN'  as  the  second  arqument  in  a  call  to 
FDBSET. 

2.  The  implementation  of  error  handling  in  FOR  is  significantly 
different  from  that  in  FTi^.  In  particular,  the  use  of  error 
classes  for  controllinq  error  handling  is  replaced  by  control 
over  each  individual  error  condition.  FOR  provides  more 
complete  error  information  to  the  executinq  program  if 
desi  red . 

3.  The  FTN  ASSIGN  service  subroutine  returns  a  ^uccess/er ror 
indication  in  its  fourth  arqument.  The  FOR  ASSIGN  subroutine 
ignores  the  fourth  argument.  Errors  may  be  detected  by  means 
of  CALL  ERRTST  oi  CALL  ERRSNS . 

4.  FTN  does  not  compile  format  specifications  for  use  at  run 
time,  whereas  FOR  does.   Two  differences  result: 


A  special  internal  buffer  is  provided  in  FOR  to  -contain 
the  compiled  form  of  format  specifications  stored  in 
arrays  that  must  he   compiled   at   run   time.    This   may 


l» 
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require   the   use   ot   the   FMTBIJF  TKR  option  to  obtain  a 
sufficiently  larqe  buffer  area  for  thi^  purpose. 

b.  Format  specifications  stored  in  arrays  are  re-compiled  at 
run  time  each  time  they  are  used.  If  an  H  frrmat  is  used 
in  a  RFAD  statement  to  reaJ  data  into  the  fomat  itself, 
that  data  does  not  qet  copied  back  into  the  oriqinal 
array.  Hence,  it  will  not  he  available  on  a  subsequent 
use  of  that  array  as  a  format  specification  in  FOR. 


These  considerations  do  not  apply 
defined  in  FORMAT  statements. 


to   format   specifications 


5.  FTN  allows  a  record  si^e  in  the  DFFINKFILF  statement  to  be 
different  from  the  size  specified  when  the  file  was  created. 
Most  of  the  time  the  new  record  size  appeared  to  work  as 
expected,  but  it  was  subject  to  obscure  errors  if  references 
were  made  to  records  near  the  end-of-file.  FOR  prints  an 
error  messaqe  if  the  record  sizes  are  different. 

6.  FTN  implements  REWI^JD  as  a  close,  open  sequence.  FOR 
repositions  the  file  at  its  beqinninq  by  means  of  an  FCS 
.POINT  operation. 

7.  FTN  implements  the  ENDFILE  statement  as  a  close  operation. 
FOR  implements  the  ENHFILE  statement  t^y  writinq  an 
end-of-file  record  on  a  file. 

8.  FOR  checks  that  the  laf  ""Is  used  in  an  assiqned  >;0T0  are  valid 
labels  in  the  proqram  unit,  but  it  does  not  check  at  run  time 
whether  an  assiqned  label  is  in  the  list  :n  the  f^OTO 
statement.   FTN  checks  at  run  time. 


D.1.4   Operational  Differences 

Under  FTN  a  task  that  has  suspended  execution  as  a  result  of  a  PAUSE 
statement  resumes  execution  by  means  of  the  CON  (continue)  ^ICR 
command.   Under  FOR,  the  RES  (resume)  MCR  command  must  be  used. 


D.2   COMPATIBILITY  WITH  PDP-11  FORTRAN  IV-PLUS 

1.  FORTRAN  IV-PLUS  (F4P)  loqical  tests  check  only  the 
highest-order  bit  of  the  value,  and  treats  a  one  as  .TRUE, 
and  a  zero  as  .FALSE. 


FOR  loqical  tests  consider  any  non-zero  hit  pattern  in  the 
lowest-order  byte  of  a  LOGICAL  variable  to  be  .TRUE.  and  an 
all-zero  bit  pattern  in  that  byte  to  be  .FALSE.. 

2.  The  FOR  implemen»-a t ion  of  DO  loops  does  not  enforce  the 
restrictions,  stated  in  the  lanquaqe  manual,  for  chanqinq  OO 
loop  parameters,  includinq  the  control  variable,  within  the 
ranqe  of  the  loop.  FORTRAN  IV-PLUS  permits  DO  parameters 
other  than  the  control  variable  to  be  chanqed.  Such  chanqes 
do  not  affect  the  number  of  tines  the  loop  is  executed  (the 
iteration  count  computed  at  the  start  for  the  loop).  FORTRAN 
proqrams  that  violate  the  FOR  rules  but  execute  as  desired 
may  behave  differently  under  F4P. 
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3. 

4. 
5. 


In  F4P,  INTEGKRM  causes  both  12-bit   allocation   and   3?-hit 
computation.   Only  1"^  bits  are  used  for  computation  in  For. 


F4P  provides  the  LOGICAL*?;   FOR  rioos  not. 

F4P  checks  the  label  list  in  an    assiqned  GO  TO  at 
FOR  checks  only  for  the  validity  of  the  labels. 


run   t  ime ; 
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You  can  use  FORTRAN  callable  subroutines  to  perform  Real  Time  Process 
Control,  Process  I/O,  ana  most  of  the  system  directives.  These 
routines  are  described  in  the  RSX-llW  Executi"e  Reference  Manual,  the 
RSX-llM  I/O  Drivers  Reference  Manual,  or  the  IAS  Executive  Reference 
ManUaT  (Volume  II). 

Two     types     of     bit-string  manipulations  --  loqical      and 

shifting  —  support   these   calls.  In   order   to   process  v'ords  from 

arrays,  the  system  software  must  be  able  to  manipulate  informotion  on 
a  bit-by-bit  basis. 


E.l   LOGICAL  OPERATIONS 

These  operations  are  implemented  as  function  subprograms.  In  the 
following  functions,  m  and  n  specify  integer  variables  or  array 
elements.   Operations  are  performed  on  a  full  word,  bit  by  bit. 

These  operations  are  supported  for  compatibility  purposes  only.  The 
FORTRAN  logical  operators  .AND.,  .OR.,  .XOR.,  .EOV.,  and  .MOT.  are 
simpler  to  use  and  generate  better  code. 


Type 


Function    Logical  Operation  Variable  Description 


Inclusive  OR  lOR  (m,n)  m.OR.n 

Logical  Product  lAND  (m,n)  m.AND.n 

Logical  Complement  NOT  (m)  .NOT.m 

Exclusive  OR  I EOR  (m,n)  m.OR.n 


m  and  n  are 

logically  added 

m  and  n  are  logically 

mult  ipl ied 

m  is  logically 

complemented 

m  and  n  are 

exclusively  added 


E-1 


BIT-STRING  MANIPULATIONS 


E.2   SHIFT  OPERATIONS 


The  logical  shift  is  implemented  as  a  function  subprogram.  A  right  or 
left  shift  can  be  specifi^^d.  Zero  is  propagated  following  the  shifted 
value,  and  the  argument's  sign  is  not  extended. 

ISHFT  (m,  n) 

m   designates  the  argument  to  be  shifted 

n   specifies  the  number   of   positions   to   be   shifted   and   the 
direction  of  the  shift: 

n>0   shift  left 

n<0   shift  right 

n=0   no  shift 

The  absolute  value  of  n  should  not  exceed  15  or   the   function   result 
wi 11  be  zero . 


J 
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F.l   INTRODUCTION 

This  appendix  qives  proqrammi '■;q  suqqestions  for  reducinq  the  size  of 
FORTRAN  IV  task  imaqes.  It  shows  how  to  override  the  Task  Builder's 
default  assumptions.  Puttinq  these  Mnts  to  work  can  result  in 
substantial  memory  savinqs  with  relatively  little  effort. 


F.2   SUPPRESSING  STATEMENT  NUMBER  STORAGE 

The  /-SN  (/NOSN)  switch  suppresses  the  storage   of   internal   sequence 
numbers. 

To  set  the  /-SN  (/NOSN)  switch,  place  it  in  the  FOR   command   line   as 
f ol lows  : 

FOR  >  TRANS,  TRAN^'  =  TRANS/NOSN 


F.3   REDUCING  THE  NUMBER  OF  LOGICAL  UNITS  AND  OPEN  FILES 

Tht  Task  Builder  assigns  six  logical  units  and  four  open  files,  as 
defav.ilts,  to  a  FORTRAN  proqran  regardless  of  the  number  the  proqram 
actually  uses.  The  ACTFIL=  and  UNITS^  commands  can  s ian i f i cant ly 
reduce  the  task  size  by  specifying  the  actual  number  of  s imul t aneous 1 v 
open  (or  active)  files  (ACTFIL=)  and  the  actual  number  of  loqical 
units  (UNITS=)  required  by  the  proqram,  provided,  of  course,  that  the 
required  numbers  are  less  than  the  default  assumptions.  (Reauestinq  a 
smaller  number  of  units  than  the  proqram  actually  uses  causes  an  error 
at  execution  time.) 

To  use  these  commands,  enter  the  key  word  followed  by  the  required 
number  of  units  or  files  in  decimal.  The  following  commands  request 
three  loqical  units  and  three  active  files: 

UNITS=3 
ACTFIL^3 


F.4   USING  THE  SHORT  ERROR  MESSAGE  FILE 

FORTRAN  IV  provides  two  error  message  modules,  one  containing  full 
error  messages  and  one,  the  short  message  nodule,  containing  only 
error  numbers.  The  OTS  uses  the  full  error  message  module  by  default. 
This  full  message  module  occupies  memory  space  that  can  be  freed  up  by 
requesting  the  short  message  module. 
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To  include  the  short  message  module  in  the  task  image,  simply  enter 
the  module  name  SSHORT  as  shown  in  the  following  sample  TKB  command 
string  : 

TKB>TRANS,TRANS  =  TRA.MS  ,[1,11  SYSLIB/LB  :  SSHORT 

In  this  example  [1,1]SYSLIB  is  the  file  specification  for  the  system 
object  library  containing  the  FORTRAN  IV  OTS . 


F.5   ELIMINATING  REDUNDANT  SYSTEM  LIBRARY  CODE 

Programs  that  perform  both  sequential  and  random  I/O  operations  always 
cause  the  software  to  load  dynamically,  via  I/O  calls,  both  the 
sequential  I/O  routines  (GETSO  and/or  PUTSO)  and  the  random  I/O 
routines  (GET  and/or  PUT).  Tne  random  routines,  though  longer  than 
their  sequential  counterparts,  cor'^in  all  of  the  features  of  the 
sequential  routines  and  can,  in  fact,  process  sequential  files.  Thus 
any  object  program  performing  both  types  of  I/O  contains  functionally 
redundant  code. 

To  exclude  the  sequential  routines,  insert  the  following  module, 
written  in  MACRO,  in  the  root  segment  of  the  user  task.  This  module 
eliminates  the  unnecessary  sequential  I/O  routines  by  simply  passing 
control  from  the  entry  points  .GETSQ/ .  PUTSO  to  .GKT/.PIIT: 


.GETSQ: :JMP     .GET 
.PUTSO: : JMP     .PUT 


;PASS  CONTROL  TO  .GET 
;PA3S  CONTROL  TO  .PUT 


.END 
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From  time  to  time  problems  and  errors  might  be  encountered  in  the  use 
of  the  FORTRAN  IV  Compiler  or  Object-Time  System.  These  should  be 
communicated  to  DIGITAL  Equipment  Corporation  by  means  of  a  Software 
Performance  Report  (SPR)  .  Software  Performance  Report  forms  may  be 
obtained  from  the  nearest  SPR  center. 

Software  Performance  Reports  shou-^'-.  be  submitted  to  the  nearest  SPR 
center.  Software  Support  Specialists  in  each  DIGITAL  office  receive 
regular  reports  on  software  problems  and  will  in  many  cases  be  able  to 
provide  software  patches  to  correct  the  problem  and  an  alternate 
programming  technique  for  temporarily  avoiding  the  problem. 

Every  SPR  is  acknowledged  upon  receipt,  and  answered  in  writing.  SPRs 
of  general  interest  are  publislied  so  that  other  customers  m=«y  benefit. 

In  preparing  a  Software  Performance  Report,  the  following  guidelines 
are  recommended: 


1.   It  is  most  important  that    you  send  a  copy  of  your  program 
a  machine-readable  medium. 


on 


2.  Give  as  complete  a  description  as  possible  of  the  problem 
encountered.  Often  a  ietail  that  may  seem  irrelevant  will 
give  a  clue  to  solving  the  problem. 

1.  If  possible,  ,olate  the  problem  to  a  small  example.  Large, 
unfamiliar  programs  are  difficult  to  work  with  and  nay  result 
in  a  misunderstanding  of  what  the  problem  is  or  an  inability 
to  duplicate  the  problem. 

4.  Include  console  samples,  listings,  compiler  output,  link 
maps,   and  so  on  with  the  SPR.   Annotations  showing  where  the 


5. 


error  occurred  are  extremely  helpful. 

If  a  program  reads  input  data,  include  sample  input 
and,  if  possible,  sample  output. 


I  i  St  i  nas 


7. 


If  an  error  example  cannot  be  isolated  to  a  single  program 
unit,  include  listings,  etc.,  on  all  program  units  involvetl. 

For  fatal  compiler  errors,  recreate  the  error  with  the  /LI:'' 
switch  specified  in  the  compiler  command  string.  Include  all 
compiler  output. 


Experience  shows  that  as  many  as  one-third  of  all  SPRs  do  not   contain 

sufficient  information  to  duplicate  the  problem.  Complete  and  concise 

information  will  help  DIGITAL  give   accurate   and  timely   service   to 
software  problems. 
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ABORT  command,  1-13,  1-14 
ACCEPT  statement,  2-19 
Access  inq , 

a  shared  file,  2-?2 

a  shared  library,  1-12,  2-?2 
ACTFIL  commanr,  F-1 

Task  Builder  option,  1-10, 
2-18 
Address,  null  arguments,  2-11 
Allocat  inq  , 


11 
20 


table  of,  C-23 


buffer  space, 

file  storage , 
SSAOTS,  2-17 

see  also  OTS 
Argument  errors. 
Argument  lists,  example  of,  2-11 
Arguments, 

null,  2-11 
Arguments  to  ASSIGN,  B-2 

see  also  ASSIGN 
Arithmetic  errors,  table  of, 

C-23 
Arrays , 

memory  and,  2-13,  2-14,  2-lS 

multi-dimensional,  2-13,  4-2 

passed  to  subprograms,  2-14 

process  words  from,  E-l 

specification  in  DATE,  B-3 

use  of,  4-2,  4-3 

vector  table  space, 
li.i  nimizing,  4-2 

vectoring,  2-13,  2-14 

illustration  of,  2-14 
ASCI I/Radix-5n  equivalents,  A-5 
ASG  Task  Builder  option,  1-10, 

1-11 
ASSIGN,  2-18,  B-1 

arguments  to,  B-2 

call  to,  B-2 

default  values,  B-2 

subroutine,  B-2 

task  builder  optioi., 
I-IO,  l-U 
Assigned  GOTO,  use  of, 
Auxiliary  I/O  operations,  2-21 
At  sign  («)  used  with  indirect 
file,  1-2 


(ASG) 
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BACKSPACE  statement,  2-21 

Bit  string  manipulations,  E-l 

Blank  COMMON,  section  name,  7-\f> 

Block,  COMMON,  2-1*^ 

BLOCK  DATA  statement,  3-1,  3-2 


Bounds,  array,  2-14 

passing  to  subprograms,  2-14 
Buffer  space,  allocating,  1-10 
Building  the  task  ima'je,  1-7 

see  also  Task  Builder 


Calculat  ion , 

in  INTEGER  node,  ^-5 
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